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ABSTRACT 

TEMPOA is a computer interactive version of the orignial 
General Electric TEMPO game, and is written for the Apple III 
microcomputer. A minimum of two players vie for a strategic 
'win* through judicious budgetary planning in the development 
and procurement of realistic weapon systems. All decisions 
are subject to the constraints of limited budgets, hardware 
inventories, research and development time lags and the uncer- 
tainties of war and inflation. A third party, assuming the 
role of game umpire, selects all simulation parameters and 
oversees the play of the game. 
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I. 



INTRODUCTION 



The simulation exercise TEMPO is an example of the histor- 
ical interest shown towards wargaming by the U.S. military. 

The TEMPO military planning game was conceived and designed 
by the Technical Military Planning Organization (TEMPO) of 
General Electric Company of Santa Barbara, California, in the 
early sixties as a strategic budget planning wargame. 

While originally a manually played simulation, TEMPO was 
designed to pit the budgetary planning and decision making 
skills of opposing teams against one another, victory being 
achieved when one team had gained a clear superiority of 
capabilities at game end. Both the measures of superiority 
and the goal of the exercise are two aspects of the game 
which have undergone changes during the ensuing two decades 
since its original inception. 

Receiving wide dissemination in both civilian and mili- 
tary communities, the game has been used by the Defense 
Resources Management Course at the Naval Postgraduate School; 
the U.S. Army Management School at Ft. Belvoir, Virginia; 
the Air War College, Air Command and Staff College, and Squa- 
dron Officers' School all at Maxwell Air Force Base, Alabama. 

As recently as 1981 TEMPO was introduced as a software simu- 
lation on the PDP 11/70 computer in the Naval Postgraduate 
School's Command, Control and Communications (C3) Laboratory. 
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TEMPOA, the subject of this thesis, is an adaptation of 
a version of TEMPO to the Apple III microcomputer. Considered 
by many to be 'state-of-the-art' at this date, the Apple III 
with its 12 8K expandable memory lends itself to large scale 
programming in a way never before available to such a vast 
audience . 

As a software device for the Apple III, the TEMPOA 
program will enable users to simulate the decision making 
process and resource management dilemmas embodied in the 
weapons development and procurement processes. While an 
attempt has been made to accurately replicate annual budget 
overheads, research and development constraints, time 
limitations and the uncertainties of war and inflation, the 
game is only a facsimile and falls short of realism on 
several counts, as detailed later. However, the highlights 
of the original game and the major influences in the 
budgeting process are contained in TEMPOA, and the adapta- 
tion is an enhancement in many ways over previous versions . 
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II . GENERAL DESCRIPTION 



TEMPOA requires at a minimum two players and an lampire. 
The players align themselves into two teams and alternate 
during the game in making annual procurement and investment 
decisions . The game simulates a period of time of up to 
twenty years, and can be teinninated at the close of any year 

Player decisions revolve about the development and 
procurement of new weapon systems (research and development) 
the buildup or scrapping of systems existing in current 
inventories and the investment of funds into intelligence 
gathering activities. Decisions are transformed into 
expenditures, which in turn promote a player's global capa- 
bilities. These capabilities are directly assessed in 
terms of v^eapon system 'utils', a single measure assigned 
each unit of a particular system. 

Each player may be faced with choices affecting up to 
thirty weapon systems during the play of the game. Systems 
are of two basic sorts, offensive or defensive, and are 
further subdivided into two categories, weapon system type 
A (strategic) or weapon system type B (tactical) . A type B 
defensive weapon system may only be used to defend against 
a type B offensive weapon system. Type A systems are 
similarly constrained. 
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At the conclusion of each year, after both players have 
completed and entered all decisions for the year, TEMPOA 
computes an annual winner based on gross offensive weapon 
system utility points accximulated by each player for systems 
in inventory, discounted by the appropriate defensive system 
utility values amassed by his opponent. If a large discrep- 
ancy exists between player standings, then there exists a 
significant possibility of war, as computed by an algorithm 
detailed later. A war translates to a healthy budget cut 
for the player with the lesser net utility score. 

The role of the umpire is twofold; to initialize all 
game parameters at the outset, and to monitor the annual 
play. A major enhancement in the current version of TEMPOA 
is the degree of control exercised by the game umpire in 
selecting game parameters. The term 'game parameters' 
loosely refers to individual system parameters (twenty 
total) of up to thirty game weapon systems, the expected 
values for annual players' operating budgets, and the means 
by which the war event is to be determined. In all cases, 
default values are available. 

All computations, which in most previous versions were 
accomplished with tedium and exasperation by hand, are 
carried out internally by TEMPOA. Pertinent results are 
displayed immediately to players during the game, and each 
player is presented annually v;ith the opportunity for 
obtaining a printed summary of his current inventory and his 
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budget status (assuming a compatible printer is configured 
to the Apple III RS232 port or that an Apple Silentype 
printer is utilized) . 

At the conclusion of any game year the umpire may select 
to halt the present game for resumption at a later time. 

Upon resumption, TEMPOA begins with the game year subsequent 
to the termination of the original play, and proceeds using 
all game parameters effective during the last active play. 

In this manner, play may be periodically postponed to allow 
for in depth examination of the game situation, a more 
extensive analysis and forecast of decision consequences, or 
simply to enable the simulation of several decades of 
systems development in the game while allowing the players 
to proceed in their decisions at a more leisurely pace. 
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III. THE PLAY 



The following sections detail step-by-step each facet 
of the game play. The software itself has been designed 
so as to minimize the amount of preparatory work necessary 
for the actual play, and no prior information on the part 
of the players, beyond knowledge of the gaming objective 
itself, is presumed by TEJIPOA. While TEMPOA was written to 
be self-explanatory and user friendly, a familiarity with 
this document will enhance a player's performance. 

A. OBJECTIVE 



System Points 
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Under 2000 






Face Value 
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amoun t 


over 
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8000-8999 
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6200 
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amount 
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9000 


10000-10999 
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*f 
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of 


amount 


over 


10000 


Over 11000 






6500 


(maximum) 





Figure 3.1 Utility Point Discount Rate 



Each player begins TEMPOA with the same collection of 
weapon systems. Each system can be one of four distinct 
types; offensive type A (OA) , defensive type A (DA) , offen- 
sive type B CCB) , or defensive type B (DB) . In addition. 
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when the program initializes, a unique utility value is 
assigned to units of each weapon system. The gross util 
value of that system is determined as the product of the 
system unit util value and the number of units of that 
weapon system in current inventory. This product is then 
discounted to reflect the diminishing marginal returns 
associated with increasing quantities of a given system. 

The discount rate is depicted in Figure 3.1. Summing the 
final gross figure over all systems of that type (OA, for 
example), results in the total player capability figure for 
that weapon system type. 

If system type A is translated to mean a 'strategic' 
weapon system, and type B a 'tactical' system, then it 
follows that a type DA system would only be used to counter 
the opponent's type OA weapon system threat. To carry this 
notion out mathematically and arrive at a single net utility 
score for a player, his total util figures for his offensive 
system types are decremented by his opponent's corresponding 
defensive util figures. When the defense for a system type 
exceeds the value of the opponent's offense for that weapon 
system collection, then the net offensive value of the 
system type is zero. That is, no credit is given for 
exceeding the utility figure necessary to neutralize an 
opponent's offensive capability. Figure 3.2 is an example 
of how TEMPOA's algorithm is carried out in practice. 
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Annually, TEMPOA determines which player achieves the 
greatest net utility figure and declares him winner. Ties 
are called when opposing net utility figures are equal. 

The effects of a player's decisions spill over from one 
year to the next, and the inventories of a given year may 
be viewed as histories, cumulative figures which encapsule 
all previous game decisions. As a result, the annual winner 
has done more than acquire a victory during that cycle of 
the game play, and has achieved a cumulative superiority 
over his opponent. The winner declared at year end, then, 
is the collective winner of the game to date as well. 

The players' goal is to achieve offensive superiority 
while thwarting his opponent's efforts through an adequate 
defense. This goal will be frustrated by budget ceilings 
and the uncertainties as to where the opponent is channeling 
his resources. 

3. STARTING 

The following subsections deal with the initial setup of 
TEMPOA; program activation, preliminary data entry, and the 
role of the umpire. 

1 . Preliminaries 

The TEJIPOA program is booted (initialized) by 
inserting the 5 1/4” floppy 'TEMPOA DISK 1” diskette into 
the Apple Ill's internal disk drive and turning the computer 
on. The boot is successful when the program logo is dis- 
played on the monitor. 
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Following the displayed instructions, players will 
be queried as to whether the current game is a resumption 
of a previous play, or whether it is to be a fresh game. 

The intent of this option is explained later. In most cases 
the game will be a new play. 

VJhen players arrive at the point depicted in Figure 
3.3 they are asked to enter their respective player/team 
names. For identification purposes, the program requires 
each player/ team to use a distinct title. The program will 
distinguish between upper and lower case entries. 

Additionally, TEMPOA requires of each player a code- 
word. This codeword is a keyboard entry which will act as 
identification verification annually, prior to allowing 
access to that portion of TEMPOA reserved for recording 
players' decisions and budget information. The present 
insertion is the only instance when the entered codeword is 
visible (and once the RETURN key is depressed, the entered 
codeword vanishes). Throughout the remainder of the game, 
entered codewords do not show up on the monitor. It is 
strongly suggested therefore that chosen codewords be brief, 
be either all upper case letters or all lower case letters, 
and lend themselves to easy memorization. There is no 
recovery for forgotten codewords . 

Players will be advised to insert TEMPOA DISK 2 into 
the external drive. After confirming the insertion by 
pressing RETURN, a delay of 10-15 seconds occurs while player 
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Player 1 Player 2 



System 


Total 


System 


Total 


Type 


Utils 


Type 


Utils 


OA 


800 


OA 


1000 


OB 


1000 


OB 


900 


DA 


1200 


DA 


1000 


DB 


900 


DB 


800 


PLAYER 


1 NET SCORE: 








Player 1 OA 




800 


Sys 


- Player 2 DA 




-1000 


A 


= Net System A 




= -200 




(if negative, set 


to 0) 


(set to 




Player 1 OB 




1000 


Sys 


- Player 2 DB 




- 800 


B 


- Net System 3 




= 200 



(if negative, set to 0) 



NET VALUE = SYS A + SYS B = 0 + 200 = 200 



Figure 3.2 Player 1 Net Utility Computation 



Enter the name of Player Number 1 (Then press RETURN) 
Enter a codeword for Player 1 (Then press RETURN) : 

Enter the name of Player Number 2 (Then press RETURN) 
Enter a codeword for Player 2 (Then press RETURN) : 



ENSURE TEMPO DISK #2 IS LOADED INTO DRIVE #2 
<Press RETURN to Continue > 



Figure 3.3 Player Data Entry Page 
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information is recorded and pertinent segments of the main 
program are loaded into computer memory . 

2 . Umpire 



*************************** 

*** UMPIRE INSTRUCTIONS *** 
*************************** 

* Printer Status * 

Enter the number corresponding to printer status: 

1.. .RS232 UNIT attached and configured to 

receive data 

2.. . APPLE SILENTYPE UNIT attached 

3.. . Printer either not connected or not of 

option type 

Figure 3.4 Printer Selection 

The umpire segment and the main code file has been 
successfully retrieved from DISK 2 and loaded into main 
memory when the display depicted in Figure 3.4 appears on 
the monitor, unless the play is a continuation of a previous 
game. In the latter case, the monitor displays a codeword 
request page for player access for the year following the 
point the play was previously interrupted. And in any event, 
if the computer fails to communicate v;ith the diskette loaded 
in the external drive, the cue 'FILS TEMPOA; TEMPOA.CODE 
NOT FOUND' will appear at the top of the monitor, and drive 
activity v/ill halt. The players should re-insert TEMPOA 
DISK 2 into the external drive and reinitialize the Apple III. 
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Following the successful code file loading, the 
umpire is requested to indicate what type of printer is 
connected to the Apple III. Both a printed forecast and 
an exhaustive annual summary of each player's game status 
(detailed in later sections) are made available at the 
termination at the end of a player's decision cycle. 

Neither sxammary nor forecast will be offered unless the 
umpire has indicated the presence of a compatible printer. 
Selection of the SILENTYPE option will assume that the 
printer is connected to the Apple printer port A. Selection 
of the RS232 option assumes the printer is properly config- 
ured to communicate with the Apple. 

Having indicated the printer status, the umpire is 
presented with the display depicted in Figure 3.5. This 
menu allows the umpire access to all weapon systems param- 
eters, budget forecasts, and a section designed to allow him 
to override TEMPOA's algorithmic expectation of war. In 



* Systems Review * 

1 .. .Browse/Alter default weapon system budget 

parameters 

2.. . Add new systems 

3.. . Delete a system 

4 .. .Browse/Alter annual budgets for ail game years 

5.. . Elect to control the annual probability of war 

6 . . .0.tain printout of all game systems and parameters 

7.. . Quit umpire section and begin game play 

Figure 3.5 Umpire Menu 
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addition, the umpire may elect to have TEMPOA produce an 
initial systems printout, if a printer is attached. Such a 
printout, detailing each parameter setting of all game 
weapon systems, provides the umpire with complete reference 
information unavailable to the individual players . The 
players are only permitted to peruse those systems and R & D 
candidates which either are available in the current year, or 
were available to them in some previous year. Opportunity 
systems which are not yet available are masked from the 
players by TEMPOA. 

A final umpire option is to forgo any changes and quit 
the umpire game segment, beginning the play with default game 
parameters. The default settings are discussed individually 
in the following sections . 

Once the umpire quits the umpire game segment, all 
budget and weapon system parameters are fed identically to 
both players, so that both begin the play with equal 
opportunities . 

a. Weapon Systems 

The umpire may browse or alter the weapon system 
parameters through appropriate selections from the umpire's 
main menu (Figure 3.5) . From the same menu he may opt to 
delete entire systems or create new systems . A total of thir- 
teen totally new weapon systems may be manufactured by the 
umpire, and can augment the seventeen default systems resident 
in TEMPOA. Since any or all of the parameters in the default 
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SYSTEM 2 



A Name 0A2 

3 Type Offensive System Weapon Type A 



C First year R&D can start: 1 

D Yrs R&D completed at game start; 0 

E First R&D year cost: $400 

F Second R&D year cost: $900 

G Third R&D year cost: $700 

H Earliest year available (after R&D) ; 4 

I Units in inventory (at game start) 0 

J Acquisition cost (per unit); $300 

K Operating cost (per unit); $175 

L Value in utils (per unit) ; 30 

M Maximum annual purchase rate; 15 



Enter one of the FOLLOWING options; 

A. .. Delete displayed system and advance page 

B. .. Advance page without deleting displayed 

system 

C. ..Quit deleting 



Figure 3.6 Umpire Systems Browse 



systems may be accessed and altered by the umpire, the total 
number of configurable weapon systems for game play is thirty. 

Figure 3.5 shows the display that the umpire is 
presented with when the Browse/Alter option is used. An 
explanation of each system parameter follows. 

'System Name' is any alphanumeric string of char- 
acters. The seventeen default systems are loaded initially 
with generic names, such as OAl, DB2, etc., but may be umpire 
altered to read HARPOON, MXl, etc. to enhance the flavor of 
the game. 

'System Type' refers to v/hich of the four cate- 
gories the displayed weapon system belongs. 
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The next five program lines deal with research 



and development. Normally, all systems which are not in 
inventory must be acquired through an R & D process. How- 
ever, the umpire has the option of making available systems 
not requiring R & D. This option is exercised by making the 
appropriate entries in Figure 3.6. (If the lompire elects to 
use the default systems, only four will appear in inventory 
at game start.) 

'First Year R & D Can Start' refers to the game 
year in which the opportunity for initiating the project is 
first available. 'Yrs R & D Completed at Game Start' allows 
the umpire to begin the game with R & D partially completed 
on selected systems. The next three lines indicate the 
annual expenses of conducting R S D on a system. An R & D 
project may last from one to three years. To account for 
inflation and possible cost overruns, a uniformly distributed 
random variable is drawn from the discrete set (O, 50, 100, 

150, 200}. The 'actual' annual expense of R & D is the sum 
of this variable and the umpire's elected R & D expense figure. 
This result will be made known to the players as the game 
progresses . 

The "Earliest Year Available (After R & D) ' 
refers to the first year in which the player may add the 
system to his inventory. Adding the number of required years 
of R & D to the first year R & D can start should result in 
the first year the system becomes available. TEIIPOA conducts 
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this simple check on all systems created or altered, and 
will alert the umpire of the discrepancy when an attempt is 
made to either advance the page in the 'Browse/Alter' option, 
or quit the umpire segment. 

'Units in Inventory' is applicable only to those 
systems in inventory at game start and not requiring R & D. 

'Acquisition Cost' is the purchase price per 
unit, and is assessed only once during the game play upon 
unit procurement. 

'Operating Cost' is the annual cost of maintaining 
and operating a unit in inventory. This is an annual assess- 
ment. Units which are in inventory are assumed to be operated, 
and are so assessed. 

'Value in Utils' is simply the unit util value, 
and when multiplied by the number of units in inventory, 
produces the gross util value of the weapon system. 

A ceiling exists for the number of units of a 
specific weapon system v^hich may be procured during any given 
year. This is referred to as 'Purchase Rate' and is the 
final system parameter listed in Figure 3.6. 
b. Budget 

Each player begins his year with the same budget 
figure as his opponent. This amount is based on the budget 
figures elected by the umpire. Figure 3.7 depicts the page 
on which this election is made, and is accessed through the 
umpire's main menu. The values presented are the default 
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BUDGET INF0Rf4ATICN 



YEAR 


MIOUNT ($) 


YEAR 


AMOUNT 


1 


9300 


11 


9300 


2 


9600 


12 


9600 


3 


9400 


13 


9400 


4 


9200 


14 


9200 


5 


9100 


15 


9100 


6 


9100 


16 


9100 


7 


9100 


17 


9100 


8 


9100 


18 


9100 


9 


9100 


19 


9100 


10 


9100 


20 


9100 



<Enter 'C to make a change> 
<Enter 'Q' to quit> 



Figure 3.7 Umpire Budget Review 



budget values , and the years shown span the maximum duration 
of the game, twenty years. (The umpire is queried annually 
whether or not to conclude the game.) 

TEMPOA deviates from the umpire elected budget 
figure in the following manner: In an attempt to simulate 

effects of inflation, budget cuts and budget increases, a 
uniformly distributed random variable is drawn annually from 
the interval [-1000, 500]. The actual budget figure 

presented to and utilized by the players is the umpire- 
elected value (Figure 3.7) summed with the random drawn 
variable. (Budget surpluses are not carried over into the 
follov/ing year.) This final figure, discounted by penalties 
accrued by the player, is displayed in several locations 
to each player during the year in which the figure is appli- 
cable. (Penalties are discussed later in the Penalties 



section.) In addition, the umpire's elected figure for the 
following year is displayed to the players in the annual 
Budgetary /Systems Purchase Status tableau, explained later. 

c. Probability of War 

At the end of each year, after both players have 
completed their decision cycles, TEMPOA computes the annual 
probability of war. First the program determines the player 
with the larger net utility capability (as described in the 
Objective section) and declares him game winner for the year. 
It then algorithmically computes the ratio of the smaller 
net utility figure over the larger, and subtracts the results 
from unity. The final figure is the TEMPOA annual probability 
of war. Note that the larger the disparity between player 
capability, the greater the resulting probability of war. 

PROBABILITY OF WAR COMPUTATION OPTION 

The annual possibility of a war is determined 
probabilistically by a random draw whose threshold 
value is based on the magnitude of disparity between 
players' total adjusted utility figures. 

The umpire may elect to override the above 
computation method and be queried annually as to 
whether the war event is to take place. 

OVERRIDE (Y or N) 

Figure 3.8 Umpire's Probability of War Option 

The umpire may elect, through an option available 
in his main menu (and depicted in Figure 3.8), to let TEMPOA 
generate a uniformly distributed random variable (between 0 
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and 1) to determine v;hether the war event occurs. Or he 
may elect, through the same option , to have TEMPOA generate 
and display the computed probability of war, and query the 
umpire annually to determine whether the event should take 
place. This override capability defaults to 'off, and 
TEMPOA will, unless otherwise directed, generate the war 
event independently by the algorithm detailed above. 

Once the war event occurs, the player with the larger net 
utility figure is declared the winner. 

C . ANNUAL PLANNING 

The following sections treat what has been termed the 
player 'decision cycle', which begins with the player code- 
word entry. The decision cycle concludes when a player 
elects the 'Quit' option from his main menu {Figure 3.9). 

1. Annual Forecast 

Following the entry of a player's codeword, he is 
provided the opportunity of obtaining a printout (if the 
umpire has previously indicated a printer is attached) 
detailing the imminent year's weapon systems and budget 
status. Such a printout would be useful if the player were 
acting as terminal operator for a team of game participants. 

The forecast has eight segments . The contents of 
each segment are only briefly described below. A more 
detailed discussion is provided later in this section. 

The first segment is a list of all weapon systems 
currently in inventory. The second is a similar listing of 
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all systems available for purchase but currently not in 
inventory. Cumulative utility figures for each of the four 
main systems types are contained in segment three. New R & D 
opportunities, continuing R & D opportunities, and shelved 
R & D opportunities make up the next three segments. Segment 
seven displays the information gathered as a result of the 
previous year's intelligence expenditures. The final segment 
provides the working budget for the current year. 

2 . J4ain Menu 

All expenditures made by a player are made through 
the main menu. This menu supplies a comraon return point 
following any procurement or investment decision, and offers 
the sole cycle escape avenue through its 'quit' option. 



^lAIN MENU 

1.. . 5TATUS OF FORCES CURRENTLY IN INVENTORY 

2.. . 5TATUS OF FORCES AVAILABLE BUT NOT IN INVENTORY 

3.. . CURRENT RESEARCH AND DEVELOPMENT CANDIDATES 

4 . . . 1NTELLIGENCE/COUNTERINTELLIGENCE INFORMATION 

5.. . CURRENT BUDGETARY/ SYSTEMS PURCHASE STATUS 

6.. . QUIT (MAKE NO FURTHER BUDGET DECISIONS THIS YEAR) 

Enter the desired option number: 

Figure 3.9 Players Main Game Menu 

The first four options listed channel the player to 
those areas where decisions are made affecting his current 
budget. The fifth option allows the player to view a summary 
of his budget status, reflecting the immediate impact of all 
procurement and expenditure decisions. The final option listed 
signals the completion of the decision cvcle. 
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3 . Forces Currently in Inventory 



Figure 3.10 depicts the display when the first option 
in the main menu is selected. Those systems with positive 
inventories are listed. Additionally, the following parameters 
are displayed; system name, system type, inventory quantity, 
unit acquisition and operating costs, utils per unit, annual 
purchase limit, and the total system utility value and oper- 
ating costs. 
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Figure 3.10 Systems Currently in Inventory Tableau 

The player is given three options (from Figure 3.10) : 
purchase new units; scrap existing units; or quit and return 
to the main menu. If the player elects to either purchase or 
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scrap units, he is requested to specify which of the systems 
from the displayed listing he wishes to expand upon (or trim) . 
Once the player has responded, the listing is replaced by a 
System Information tableau depicted by the upper portion of 
Figure 3.11. Following TEMFOA's prompting, the player enters 
the number of units he wishes to buy or scrap. The display 
of Figure 3.11 is now completed, and an Updated System Infor- 
mation tableau augments the previous System Information 
tableau. All acquisition and operating costs, as well as 
annual budget data, are immediately updated to reflect the 
player's procurement decision. In order to understand the 
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Figure 3.11 Systems Purchase and Update Tableau 
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updating impact of a decision to purchase or scrap, it is 
necessary to take a closer look at how TEMPOA performs the 
arithmetic . 

Associated with each system are two special variables, 
one called the system inventory and the other called the 
'threshold' number. The system inventory always reflects the 
number of units of that weapon system in inventory at any 
given moment. The threshold number is simply the number of 
units in inventory with which the player began the year. 

The second variable represents those units for which an 
acquisition expense has already been incurred. VThile the 
inventory figure may fluctuate throughout the decision 
cycle, the threshold value will remain fixed, and will pro- 
vide TEMPOA the necessary flexibility to allow the player 
to reverse his decision v/ith impunity throughout the cycle. 

When a player makes a purchase7 his inventory is 
immediately increased, and his system operating cost is 
simply the product of the inventory and the unit operating 
cost value. When a player scraps units of a system, his 
inventory and system operating costs are immediately decre- 
mented. During a purchase, however, he is assessed an acqui- 
sition cost for only those units which are in excess of his 
threshold figure. And during scrapping, he is 'rebated' an 
amount equivalent to the acquisition costs only for those 
scrapped systems which are in excess of the threshold figure. 
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As an example of the numerical role played by the 
threshold figure, consider the following. A player's 
threshold is thirty units and his inventory is forty units 
(a point in the cycle when the player has already purchased 
ten units since 4;he cycle began) . He decides now to scrap 
fifteen units. His updated inventory will be twenty-five 
units. His threshold is still thirty units. His updated 
operating costs reflect his current inventory of twenty-five 
units . His budget funds remaining has increased by an 
amount equal to the acquisition price of ten units (not 
fifteen) . 

TEMPOA will provide the alert depicted in Figure 
3.12 if the player attempts to spend more than he has avail- 
able. The alert acts merely as a warning, and will not 
prevent the determined player from overspending his budget. 
If the player continues, and amasses a deficit, an amount 
equal to twice the deficit figure is automatically deducted 
at the end of the decision cycle from the subsequent year's 
budget. 

During any portion of the decision cycle, an attempt 
to procure more units than the purchase rate allows will 
orompt an additional warning. TEMPOA then provides the 
player with the maximum niamber available for purchase, and 
will query the player as to his intentions . 
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WARNING 



You have not enough funds remaining in the year to 
make the desired acquisition 

Budget $9400 

Amount spent previously for acquisitions $0 

Amount spent for intelligence $100 

Amount spent for R and D $400 

Amount to operate all current inventories $7200 

Amount remaining $1700 

Acquisition and operating costs 

of system quantity selected $1860 



Deficit 



$160 



If you continue with this purchase and do not scrap 
any other systems (to lower your operating costs) 
you will have an annual deficit. Twice this amount 
will then be deducted from next year's budget. 

Do you wish to continue with this acquisition? 

<Y or N> 



Figure 3.12 Budget Overrun Warning Message 

4. Forces Available But Not in Inventory 

All display formats and purchase procedures in this 
section are identical with the previous section. Systems 
itemized in the manner depicted by Figure 3.10 are those 
whose inventories are zero. Increasing the inventory of any 
system will immediately cause the system to be transferred 
from the 'Not in Inventory' category to the 'Forces Currently 
in Inventory ' category . Subsequent perusal of this system 
requires a return to the main menu, and selection of the 
'Forces Currently in Inventory' option. 

In the event the forces listing is greater than four 
systems in length, TEMPOA provides for a series of pages to 
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be created, each of which expresses system information in 
the standard format. The paging option is implemented 
automatically when the need arises, and each page provides 
the player with the purchase option, and the advance page 
and quit options . This paging procedure is also implemented 
in the 'Forces Currently in Inventory' segment. 

5 . Research and Development Candidates 

RESEARCH AND DEVELOPMENT PROJECT STATUS 

A. . .NEW OPPORTUNITIES 

B. . .CONTINUING OPPORTUNITIES 

C. .. SHELVED OPPORTUNITIES 

Q. . .QUIT 

Figure 3.13 Research and Development Menu 

All systems about which players make decisions can be 
categorized into three mutually exclusive classes; those 
systems in inventory, those systems available but not in- 
inventory, and those systems in some stage of research and 
development. This latter class of systems may be browsed and 
manipulated through the R & D in the players' main menu. 

Once selected, an R & D menu, as depicted in Figure 3.13, 
appears on the monitor. 

There are three possible stages in the R & D process . 
First is the New Opportunity stage. All new R & D opportuni- 
ties make their initial appearance under this heading, and may 
be viewed by selecting the first of the options depicted in 
Figure 3.13. The selection causes the display to be replaced 
by the tableau depicted in Figure 3.14. 
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Figure 3.14 



New R&D Opportunities Tableau 



The information displayed in Figure 3.14 is similar 
to that displayed in the purchase tableaus v/ith minor excep- 
tions. 'Yrs R & D Completed' is self-explanatory, and will 
have a value of zero for all new opportunities. 'Total Yrs 
Req'd' refers to the number of years of R & D required to make 
the system available for purchase. This figure, when compared 
to the 'Yrs Completed' value, gives a progress report on the 
system’s R & D status. The maximum number of required R & D 
years for any TSMPOA weapon system is three. The next several 
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entries in the tableau reflect the expected cost of pursuing 
R & D on the described system. 

When the player elects to begin or continue R & D on 
a specific system (the option depicted at the bottom of 
Figure 3.14), the incurred expense' is equal to the figure 
indicated under the appropriate year column. This cost is 
immediately deducted from the annual budget. The remaining 
year cost columns in the R & D menu are forecasts only, and 
the figures under those headings may vary as a result of an 
inflation simulation. At the end of each year, a uniformly 
distributed random variable is drawn from the discrete set 
{0, 50, 100, 150, 200}, and is added to the subsequent year's 
expected R & D costs. As a result, the expense of contin- 
uing a system's development may become more expensive than 
anticipated, and players may decide to shelve the project 
temporarily . 

All new opportunity projects about which no player 
decisions are made will be put automatically into the shelved 
opportunity class by TEMPOA at the end of the decision cycle. 
TEMPOA makes no automatic budget assessments for either new 
or shelved R & D opportunities. 

The Continued Opportunity listing, also displayed 
through the R & D menu, itemizes all systems funded for R & D. 
The format is similar to that depicted in Figure 3.14. The 
' Yrs R & D Completed' value, however, will be non-zero in 
those instances where R & D was previously funded. 
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The current budget figure always reflects the expense 
of pursuing those R & D projects itemized under 'Continuing 
Opportunities'. When a new opportunity is funded, the 
system's status changes, and the budget is immediately 
assessed the appropriate year's R & D cost. Similarly, when 
a previously shelved opportunity is continued, its status 
changes and the assessment is again performed (and a possible 
penalty, described later, is charged). 

From the Continuing Opportunities display, a player 
may elect to shelve one of the listed systems. Shelving a 
system will cause an immediate reinstatement of budget funds 
to occur, the amount equivalent to the cost of R & D pursuit 
for that system. At cycle end, all systems in the Continuing 
Opportunities status are assumed to remain in that status for 
the beginning of the subsequent year. 

PENALTY PRICES FOR RESUMING PREVIOUSLY SHELVED 

R&D PROJECTS 



System (Type) Penalty 

0A2 (OA) $300 

DB3(DB) $250 

OB4(OB) $275 

OA3 (OA) $300 



You have $1600 remaining in this year's budget. 

Enter the name of any system whose R&D you wish 

to resume : 

<Type 'quit' to Quit> 

Figure 3.15 R&D Penalty Tableau 
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Shelved Opportunities, the last stage to which an 
R & D project may belong, is the set of all systems whose 
project development is temporarily held in abeyance. The 
display format for these systems is similar to that of the 
other two stages. Once shelved, projects are indefinitely 
held in this status, carried over from one year to the 
next automatically by TEMPOA. If the player decides to 
resume development, he is assessed the appropriate year's 
R & D cost (previously explained) , in addition to being 
assessed a resumption penalty cost. This cost reflects the 
expense of reactivating old facilities and the general 
regrouping of effort needed to pursue previously discon- 
tinued projects. Specifically, it is equal to $300, or the 
cost of the most recent year of R & D completed on the 
shelved project, whichever is less. A listing of penalties 
for all shelved systems, as depicted in Figure 3.15, is 
accessed through the third option in the R & D menu. 

A budget overrun warning, similar to the purchase 
overrun warning described earlier, is utilized in the R & D 
segment, and cautions the player when excessive R & D invest- 
ments are attempted. 

6 . Intelligence/Counterintelligence Information 

Figxire 3.16 displays the intelligence/counter- 
intelligence menu available to the player through his main 
game menu. The options available are three; receive previ- 
ously purchased information, fund the purchase of future 
information, and cancel the funding allotted earlier in the 
cycle . 
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SELECT INTELLIGENCE OPTION: 



A. ...Receive Previously Purchased Intelligence 

Information 

B. . . .Purchase Intelligence/Counterintelligence 

Information 

C. ... Cancel All Intelligence/Counterintelligence 

Requests for the Current Year 

Q. . . .Quit 

Figure 3.16 Intelligence/Counterinteiligence Menu 

Four distinct types of intelligence information may 
be procured. The first two concern enemy offensive and 
defensive force strengths, respectively. The latter two 
are information regarding enemy offensive and defensive R & D 
projects . 

By selecting the first option in Figure 3.16, the 
player may review information procured by intelligence 
funding the previous year. In game year one, as in any year 
not preceded by an intelligence procurement, no intelligence 
information can be reported, and an appropriate comment to 
that effect will be indicated. Figure 3.17 depicts typical 
results of electing the first option from the Intelligence/ 
Counterintelligence menu (Figure 3.16). 

The first two TEMPOA responses in Figure 3.17 will be 
one of three possibilities:. If no money was previously 
expended for the intelligence category listed, the cue 'NO 
INFORMATION PROCURED' will be displayed. If the intelligence 



38 



CURRENT INTELLIGENCE REPORTS: 

ENEMY OFFENSIVE FORCES INFORMATION: 

NO INFORMATION PROCURED 

ENEMY DEFENSIVE FORCES INFORMATION: 

Total enemy defensive utils are estimated 
to be between 2736 and 3029 

ENEMY OFFENSIVT: R&D INFORMATION: 

CIA unable to breach enemy counterintelligence 
barrier 

ENEMY DEFENSIVE R&D INFORMATION: 

Reports indicate enemy currently funding 3 
defensive R&D projects 

Figure 3.17 Intelligence Report 

category was funded, but the enemy provided for counter- 
intelligence funding, then TEMPOA will respond with 'CIA 
unable to breach enemy counterintelligence barrier' . If 
funding was provided and the enemy failed to provide for 
counterintelligence, then TEMPOA responds with upper and 
lower bounding estimates of the enemy's total utility for 
the appropriate system category. Each bound is arrived at 
separately through distinct uniform random variable draws 
from the interval [0, 200] . These two variables are then 
added and subtracted, respectively, from the actual total 
enemy utility figure to generate the displayed upper and 
lower bounds . 

The last two TEMPOA responses in Figure 3.17 will 
have the same first two possibilities as explained previ- 
ously. If funding was provided and the enemy has 
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established no counterintelligence, however, TEMPOA will 
respond with the number of currently funded enemy R & D 
projects of the appropriate system category. 



PURCHASE OPTIONS 

A. .. Current Force Strength of Enemy Offensive Forces 

B. .. Current Force Strength of Enemy Defensive Forces 

C. .. Current Offensive Enemy R&D Projects 

D. .. Current Defensive Enemy R&D Projects 

E. .. Supply Counterintelligence Regarding Own Offensive 

Forces 

F. . .Supply Counterintelligence Regarding Own Defensive 

Forces 

G. .. Supply Counterintelligence Regarding Own Offensive 

R&D 

H. .. Supply Counterintelligence Regarding Own Defensive 

R&D 

Q. . .Quit 

Intelligence Cost per Item (A thru D) ; $100 

Counterintelligence Cost per Item (E thru H) ; $200 

ENTER OPTION LETTER; 



Figure 3.18 Intelligence/Counterintelligence Purchase Menu 

Option two from the R&D menu (Figure 3.16) presents 
the display depicted in Figure 3. IS, and allows the player 
to procure intelligence information or to provide for the 
supply of counterintelligence. The cost of intelligence pro- 
curement is $100. The cost of providing counterintelligence 
is $200. Counterintelligence is used to deny the enemy infor- 
mation whose acquisition he is funding. All procurements are 
immediately deducted from the annual budget figure. 

The final option allows the player to reverse previous 
intelligence/counterintelligence decisions, and cancel all 
such funding for the cycle. 
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7. Budqet/Systems Purchase Status 



BUDGET INFORMATION 

Year: 3 Total annual allowance; $9300 

Amount spent in acquisitions $850 

Amount spent on intelligence...* $600 

Amount spent on R&D $2000 

Operating costs by system (those in inventory) : 

System (Type) Quantity Total Operating Costs 



OAl(OA) 


40 


$1200 


DBl(DB) 


100 


$2000 


OB3 (OB) 


100 


$1500 


Expected defense budget 


for next year; 


$8700 


Total monies remaining; 


$1150 





<Press RETURJI to Return to Main Menu> 



Figure 3.19 Budget/Systems Information 

A current summary, depicted in Figure 3.19, is avail- 
able to the player at any time during his decision cycle 
through an option in his main menu. The summary provides a 
documentation of monies allotted during the current cycle for 
system acquisitions, intelligence and counterintelligence 
procurement, and R&D funding. Additionally, the sxmoraary 
breaks down all systems currently in inventory by name and 
system type, and provides individual operating costs. The 
summary concludes with the amount of budget funds remaining, 
and an estimate of the following year's budget allocation. 

D. ANNUAL OUTPUT 

Immediately following the conclusion of a player's decision 
cycle he is given the option (if the umpire has previously 
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indicated a printer has been attached) of obtaining an exhaus- 
tive printed summary detailing his budget decisions and weapon 
systems status for the year just completed. Once elected, 
the printing takes two to three minutes, and cannot be 
interrupted. 

The printout is divided into eight segments. The first 
segment itemizes all weapon systems currently in inventory, 
and provides a breakdown of each system into its component 
parameters. The second segment provides the same breakdown 
for all weapon systems available but not in inventory. Total 
curaulative utility figures for each of the four main system 
types are provided by segment three. The next segment item- 
izes all continuing R & D projects, providing the same param- 
eter details as contained in the first segment. Segment five 
treats all shelved R & D projects. As mentioned earlier, 
this category includes any xanacted upon R & D opportunities 
which were introduced to the player as new during the previous 
cycle. The sixth segment deals v/ith a budget summary and 
forecast for the upcoming year. The information provided is 
similar to that available to the player through his Budget/ 
System Status option in his main menu. The last two segments 
are forecasts of systems which will appear as opportunities 
at the start of the following decision year. Segment seven 
forecasts systems v/hich the umpire has made available in 
inventory without requiring player R & D effort. Segment eight 
forecasts new R & D projects to be introduced to the game the 



following year. 
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E. WINNING 



AS A RESULT OF A TALLY OF 
OPERATIONAL FORCES UTILITY 
POINTS. . . 

Chris 

... IS DECLARED WINNER 
FOR GAI-E YEAR 5. 

Figure 3.20 Winner Declaration 

TEMPOA declares a win at the end of the year based on the 
player's net utility figures. The exact algorithm has been 
explained in the Objective section. Figure 3.20 characterizes 
the display presented by TEMPOA when a winner is declared. 

A tie is called in the event the players have identical net 
utility figures. 

F. SAVING THE GAI4E 

At the end of each player's turn, the umpire is presented 
with a menu selection which provides him the option of termi- 
nating the game. Specifically, he may decide to end the game 
and save the game data, or he may continue with the game. If 
the umpire elects to conclude the game and preserve the game 
data, then TEMPOA creates a data file on the external diskette 
and writes all systems and budget information for each player 
onto the file. When all disk drive activity has stopped, the 
play is concluded and the Apple may be turned off. When next 
the TEMPOA program is initialized, the umpire should indicate 
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that the game is a resumption (see Preliminaries section for 
appropriate cue information) . In the event the game is again 
shelved, the old data file on the external diskette is merely 
updated. The play, then, may be interrupted frequently without 
loss of data storage space due to a need to save the most 
current data base. In addition, several separate games may 
be played in the interval between the saving of a game and its 
resumption, as long as no attempt is made to save one of the 
intervening games . 

G. PENALTIES 

Three penalties may be assessed a player during the game. 
The cost of losing a war is $1000, and is immediately deducted 
from the following year's budget. A second penalty is the 
extra expense incurred by budget overruns. At the end of each 
year, twice the amount of any budget overrun is deducted from 
the guilty player's upcoming year's budget. Note that while 
a player is penalized for a budget overrun, he is not given 
credit for budget surpluses. As in many military procurement 
scenarios, what isn't used is lost. The final way a player 
may be penalized is by resuming a shelved R & D project. If 
the shelved system was actively pursued at some earlier time, 
then an added expense is incurred for project resumption. 

The cost is equal to $300, or the cost of the most recent year 
of R & D completed on the shelved project, whichever is less. 
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It bears mention that, in light of these penalties, a 
player's actual annual budget may differ drastically from 
the umpire's elected figure. A budget overrun of $500 coupled 
with the loss of a war will cut a player's expected figure 
by $2000. In addition, the random draw made to adjust the 
budget figure for inflation may slash the budget by another 
$1000. The resulting budget figure may surprise the unalerted 
player. Both players are strongly advised to heed TEMPOA- 
generated budget overrun alerts, and be wary of overextending 
operating commitments into subsequent years . 

H. STRATEGY 

The goal of the game is to gain the upper hand in terms 
of offensive utility points, while maintaining enough defen- 
sive utility points to offset the opponent's offensive capa- 
bility. Players will not achieve this end simply by funneling 
monies blindly into offensive capabilities. 

If the game duration is predetermined and announced by 
the umpire, it may be possible to successfully model TEMPOA 
as a complicated dynamic optimization problem. A variable, 
undetermined game duration, however, frustrates this approach, 
and the player is resigned to work out his 'best' strategy 
with a more primitive scheme. 

There are three areas in which a player might sink funds; 
intelligence, R & D, and system procurement. 

The gathering of intelligence information is important 
for providing guidance for which type of system to allot R & D 
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funding. And the cost of intelligence procurement is rela- 
tively inexpensive when compared to the pursuit of an R & D 
project or the augmentation of an existing weapon system. 
Intelligence is as much a priority to a player's enemy as 
it is to the player himself, hence the need to fund 
counterintelligence activities. A judicious use of counter- 
intelligence will effectively mask critical information 
concerning systems where a player is particularly weak, or 
where a player is expanding in preparation for the great 
' coup ' • 

Most of the default R & D projects require three years 
of funding before they are available for purchase. A three 
year delay is a significant interval, and players should not 
delay in initiating R & D projects which will bear no fruit 
for several decision cycles. It is easy to become misled by 
visions of a late return for early efforts. To delay the 
start of an attractive R & D project in favor of a lesser 
capable but more immediate investment may be taking risks 
that the player can ill afford. Frivolous shelving is 
costly. The penalty price associated with resuming shelved 
R & D projects (in addition to the delay in getting them 'on 
the street') may exceed the expense of the budget overrun 
caused by continuing the project . The costs and penalties for 
shelving are not always transparent, and the decision to 
shelve warrants careful scrutiny. 
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Scrapping systems currently in inventory should be treated 
in the same way as shelving R & D projects. For each unit 
scrapped in haste, though the annual operating expense has 
been reduced, the equivalent acquisition cost has been wasted. 
Scrapping is an appropriate measure only when presented with 
an attractive, cost-effective weapon system whose operation 
under the budget constraint necessitates the replacement of 
less efficient systems. Systems of the same type may be 
compared in a cost-effectiveness mini-study, where expendi- 
tures are amortized over some predetermined interval. A 
similar approach has been successfully used to deal with R & D 
systems . 

The brunt of the emphasis in recent TEMPO versions has been 
on team interaction and the analysis accompanying the decision 
cycle. In the current version, the duration of the decision 
ci’’cle is left to the umpire. However, the more time allowed 
the players during their cycles, the more complex and competi- 
tive their analysis is expected to be. 
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IV. CONSTRAINTS AND LATITUDES 



This chapter is divided into sections . The first section 
treats player constraints and variable limits, while the second 
deals with those areas of TEMPOA where random numbers are 
generated and used. 

A. CONSTRAINTS 

Game duration is limited to twenty years. This constraint, 
elected as a reasonable upper bound for the game duration, was 
embedded in TEMPOA to allow the umpire the flexibility to alter 
a set of default budget figures. If a duration greater than 
twenty years is desired, it is only necessary to alter the 
length and initialize the values of the integer-valued budget 
vectors REDBUDGET and BLUBUDGET, declared in the main program. 

The maximum number of game weapon systems is thirty. 
Seventeen are default systems, and may be altered beyond 
recognition by the umpire. Another thirteen systems may be 
created by the umpire to augment the default systems. Again, 
the bound at thirty was elected as a reasonable limit to the 
number of system alternatives a player would be able to deal 
with. An incremental increase in the number of systems avail- 
able increases the game complexity exponentially. 

All arithmetic operations performed by TEMPOA use 
integer-valued variables. And in the main, integer varibles 
have been used more frequently than long integers . The 
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probability of war computation, while appearing to use and 
display real-valued variables, actually uses long integers and 
an artificial decimal display. As a result of the prevalence 
of integer variables, the maximum value TEMPOA arithmetic can 
be expected to deal with is 32767. This is a constraint of 
the Apple itself. Since the greatest expenditures will not 
often exceed the annual budget, care need only be taken to 
ensure the umpire does not elect to use budget values in 
excess of 32767 (budget default values are approximately 9000) . 
This will artificially bound expenditures. And observing that 
unit utility values are roughly comparable to unit operating 
costs, bounding the annual budget figures effectively caps 
the total systems utility values as v/ell . Annual expenditures 
and gross utility values are the largest variables dealt with 
in TEMPOA. Ensuring their bounds are within Apple integer 
constraints is sufficient to safeguard all other variables. 

Aside from the mentioned constraints and the limitations 
of the display presented on the monitor, TEMPOA has been 
constructed to be flexible and forgiving. Numerical entries 
not within the allowable range of the assignment will prompt 
a TEMPOA cue highlighting the error and cautioning the player. 

B . LATITUDES 

Random numbers are drawn and used in four instances during 
the game play. The Apple System Library unit Apples tuff pro- 
vides the source of the random numbers. All begin uniformly 
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distributed over the interval [0,1]. a linear transformation 
is then performed on each draw to provide the appropriate 
variable range required. The Randomize procedure, also pro- 
vided by the Apples tuff unit, is used to avoid the repetition 
of a draw sequence in subsequent games . 

Draws are made in the following circumstances; to provide 
upper and lower bounds to the enemy utility figure reported to 
the player as the result of an unblocked intelligence request; 
to determine the annual effect of inflation on the umpire- 
selected budget value; to determine the effect of inflation 
on the imminent year's R & D cost for any continuing R & D 
opportunity; to determine, if umpire-elected, whether a war 
event is to take place. A more precise description of the 
algorithms used in the above circumstances is available in the 
appropriate sections . 
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V. RECOr®lENDATIONS 



TEMPOA is constructed to mime the realities of the defense 
procurement and development process. To the extent in which 
it falls short of this goal, room for program enhancement 
exists . 

A glaring artificiality is the encompassing in a single 
value, called 'util', the full capability and military signifi- 
cance of an entire weapon system. Certainly this streamlines 
TEMPOA. And it frees the player to concentrate his efforts 
on budget allocation rather than on pure systems analysis 
concerns. Nontheless, injecting a more realistic systems 
assessment would enhance TEMPOA and add a new level of sophis- 
tication to the play. 

An area not directly addressed in TEMPOA is the cumbersome 
artificiality of the decision cycle scheme. Forcing one player 
to 'wait his turn’ while the other proceeds through the decision 
cycle is not merely unrealistic. Boredom is fostered in the 
nonparticipating player. A more desirable scheme would be a 
time-sharing arrangement, where both players occupy separate 
terminals, linked by modem, and conduct their decision cycles 
simultaneously. Such an arrangement, while posing no great 
technical difficulties, requires the availability of multiple 
compatible terminals. In addition, the need would arise for 
both players to complete their cycles at about the same time, 
to enable a timely transfer of player status information from 
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one terminal to the other (in order to provide TEMPOA the 
necessary data to decide and declare a winner) . 

An alternate method for dealing with the player cycle is 
to have duplicate game diskettes given to the players. Each 
could play simultaneously on separate non-linked terminals. 
Following each turn, a data file summarizing a player's 
decisions would be created on each game diskette. The umpire 
would then halt the game and switch the players' diskettes. 

Each player could then retrieve the opponent's data file and 
determine a score. Diskettes would then be returned to the 
respective players to begin another game cycle. 

VJhile this second method allows for simultaneous game 
play, it requires the additional manipulation of game diskettes. 
Also, the umpire would be required to monitor the cycle dura- 
tion and ensure the simultaneous termination of each player's 
game year. 

All of which highlights the desirability of an internal 
clock in the Apple III. In the current TEI4P0A simulation, an 
umpire takes the place of a clock, and may establish duration 
limits for player decision cycles. A clock would relieve the 
responsibility from the umpire, and would also provide a ready 
solution to the problem posed by the need for simultaneous 
cycle completion when using two linked terminals. 

The above summarizes the more glaring shortcomings of 
TEMPOA. Other such areas exist, and will become apparent 
whenever the player finds himself muttering in a frustrated 
tone of the artificiality of a TEMPOA-generated situation. 



52 



VI. 



MECHANICS 



This chapter discusses the required hardware upon which 
to play the TEMPOA program. In addition, the section on soft- 
ware dwells on the program makeup, TEMPOA file construction, 
and procedure segmentation. 

A. .HARDWARE 

The program TEMPOA requires the use of one Apple III 128K 
microcomputer, a 120V/60Hz power source, and one external disk 
drive. While TEMPOA consists of three separate 5 1/4" floppy 
diskettes, the code required for running the program is 
contained only on the first two. 

The use of a printer is optional. However, in order to 
obtain an umpire's complete systems summary, an annual player's 
decision summary, or an annual status forecast, a properly 
configured printer is essential. When attached, a compatible 
printer is linked through the Apple RS232 port. If an Apple 
Silentype printer is used, it must be attached to Printer 
port A. 

B . SOFT^JARE 

TEMPOA, as mentioned above, is contained on three diskettes. 
TEMPOA DISK 1 and TEMPOA DISK 2 contain the program code files 
and are used to run the game. TEMPOA DISK 3 contains all pro- 
gram text files, and is available to provide the user with the 
option of reconfiguring or editing the game. 
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Specifically, TEMPOA DISK 1, which is inserted in the 
internal disk drive prior to turning the power on, contains 
the Apple system software necessary to boot the TEMPOA pro- 
gram. Additionally, it contains a data file in which player 
names and codewords will reside. Using the Apple System 
Library unit Chainstuff, the booted code file on TEMPOA DISK 
1 is linked to the main program on TEMPOA DISK 2, which 
should be inserted into the external disk drive. Other than 
the initial diskette insertions, no further file or diskette 
manipulations are required of the player during the remainder 
of the program. 

An understanding of the rationale behind the TEMPOA file 
configuration is necessary if the user anticipates altering 
or enhancing the program text. 

File arrangement was dictated by several Apple constaints. 
First, individual procedure size limits caused simple but 
lengthy texts to proliferate into multiple smaller units. 

Hence the final program contains an inordinate number of 
nested procedures . A second consideration in program design 
was text file size. In order to amass the quantity of text 
embodied by TEMPOA, the program was divided into seven text 
file 'batches'/ plus the main driver text file. All files 
are then compiled sequentially using the Apple III Pascal 
compiler 'include' option. 

A constraint affecting program execution was the limita- 
tion on the quantity of code that could be loaded at one time 
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into the main memory. In order to provide adequate space for 
pertinent sections of the program, large blocks of text were 
defined as 'segmented' procedures. These procedures, compiled 
before non-segmented procedures, are not automatically loaded 
into the main memory, and now remain resident in the code 
files until called by TEMPOA. 

Sheer size of the TEMPOA code file (160 diskette blocks) , 
suggested the use of a third disk drive in program construction 
and compilation. The requirement that certain system software 
files be resident in certain drives made TEMPOA file manip- 
ulation during construction cumbersome. While users are 
invited to modify and enhance the current version of TEMPOA, 
the use of a third drive is heartily recommended for the tasks 
of editing and compilation. 
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COMPUTER PROGRAM 



mnIT MVSTUFS^; 

INTRINSIC CODE 17; 

INTERPCiCE 

USES PPPLESTUFF; 



(The f'ollouarr? three procedures t»»erp rre>=»ted and installed as an intrinsic 
unit into the sustera librarn. Each is called 4-Vesi jent 1 s* bn the dri'.jer 
prosram and bu its sar-ellite *i.*nroiiMne«‘.. T 
PROCEDURE PUTIT < : inteser; phrase : strxns); 

PROCEDURE CLEfiRSCREEH; 

PROCEDURE HELP^ 

TMPtEHENTQTTriN 

PROCEDURE PUTIT; 

(Places a siuen strins at a piven «c»^een location. > 
besin 
iiOTOXV< 

i»»rxteln^ phrase > 

end; >'’p»jtxt> 



PROCEDURE CLEmRSCREEH; 

( Er ases entire sc r een . > 
uar 

control : xnteser; 
besxn 

control 23; 
unitwritev I ^control /2 j »12 >; 
end; (clear<crpen> 

PROCEDURE HELP; 

(Sounds audio tone and displays cue to nper 3 tnr, > 
uar 

d : char; 
besin 

cl parser sen; 
sounds S5#3 jiS3 >; 

uir 1 te 1 n ;uiri te 1 h ; i«»r i te 1 n ; tur \ r.^ 1 n ; 
sotoxyi 15 j 10 >; 

writelm Vou loust choose fVnm ^mons* *he a*'ailable options. 
Put it( 23# 13 > ' Press RETURN to return r.o tn<»nu >; 
read^ d > 

end; (hele> 



end 



(loystuff J 



i-'RObrtMM STftftTUP; 

jS£S APPLSSTUFF, CHPIH?T1.iFP, MVSTU«; 

\ Boots program , proox basic user banOshakp and introduction. 
Obtains player names* tickler to ensure disk is in drive. 
Chains to t^ain TEHPO prosram. > 



.•ar 



i: inteser; component: array of strinsi datafile: file of strins# 



PROCEDURE DRWn; 

■CDrauil and Ora«^ provide program loeo> 
beein 

writeirK ^ 
iteln# 

writein< 

) f 

utritelrK 



'uritein< ^ 

0 '•); 

rnritelm ^ 

ij ' ) ; 

'Mriteln< '* 

0 ' >i 

loritelrK ^ 

'■ >; 

write IrK ^ 

writeln< '* 
end; 

PROCEDURE 0RPIW2; 
var 

d : cnar; 
besin 

iuriteln< '' 



writeln< ' 

'Mriteln< ^ 
•' ; 

'•iriteln< •*■ 
wr 1 te 1 n^. ' 
writeln< ^ 
«ritein», ^ 



WELCOME TO' >;writeln;uiritein;wr 



TTTTTTTTTT 
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EEEEEEE 


MM 


MM 


PP 


000000 



\ dra»«» 1 > 



Th*» ’n^e*^^^tive oame of international warsame financ 



p^T| ipN continue 



re ao<. a > 
end> 



’dra*»»2 *! 



PROCEDURE OETNPHES; 

L Obtain » layer names > 
bee in 

c i ear screen; 
sotoxyv 10 #10 ); 

‘"rite*^ 'Enter th’» name of °l5y»r Mumror i *. Thon »ress RETURN'^: ' >; 
re.3clln*s comPonentL 1 ] ; ; 
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• ?ot.ox* 2 *< 10^11 

Hir 1 ' £nt.er a codewor<1 for °l=iM.»r 1 ^ Th^rt »r^.«i RETURN ): 

r« ad 1 nv c opponent. C 3 1 >5 

aotJDX’siV 80 1 1 > ; wr \ t.i?< " ^ ; 

aor.oxsv 10^13>; 

*»»rite<. 'Enter the name of PI aver Mnmh^ 2 (Then pree.^ RETURN): ' >; 
read 1 n< c omponent C 3 ] > ; 

?otoxv< 10^14 )i 

u«rite< 'Enter a cod^Hiord for ^la^er 2 ''Th*=ry pre<s RETURN): '); 
readln< covftPonentC4] 'i 
30toxv< 90 » 1 4 ) 5 u»r 1 te< ' '' 

end# <eet namely 

PROCEDURE 0I3K2J 

•C Tickler to ensure cttsk W2 is in Oriue PP> 
uar 

f : char; 
bee in 

putit< 18#13#'ENS*URE TFHPO DIRK IS LOPDED INTO 0RI'‘E #2'); 
p^jtitC 27 #20# 'sprees RETURN to Continue)' 'i 
re act f ) 

end; <di«k2> 



PROCEDURE SCRIBBLE; 
C Introduction) 
uar 

d : char; 
bee in 

c learscreen; 



Ptiti t( 13#5# ' The follounne in'^eracti'***’ 'Simulation tuae written ' 

p<jtit< 13#9# 'be Christopher 0. Omens# LT # UEN# for the Ppele II! 
putitc 13#7#' microcomputer in »an^ial fulfillment *?f reeuirements ' ); 

putit< 13#0# 'for the deerees of Master of Soience in Operations ')# 

putit^ 13 #3# 'Research and Master >*>f Scienc® m Ppe^lied Mathematics, '); 
Put 1 tC 1 3 # 1 0 # ' ' > # 

putiul3#ll#' Complete proeram document ation and user instructions ')# 
p«jtitc 13# 12#'are contained in thp ♦hesi? doctnnent itself# suomitted ); 

putit< 13# 13# ' in Septemoer 1932 at rhe Maual Postgraduate School in '); 
putitc; 13# 14# 'Montereu# California. The document and accomeanvins ')# 

putitC 13# 15# 'diskettes are held bu Plum P. Pndnjs# Department of ' ); 

put it< 13# 16# 'Operations Research# at thp Nai'al Postgraduate School. ' )# 
^ut 1 1< 1 3 # 1 7 # ' ' ) ; 

put 1 tc 1 3 # 1 3 # ' ' ) i 

^Utiul3#l9#' f Press RETURN to acc^s the UMPIRE section I ' 

putit< 13#20#' I and to bp«m plav 1 ' )# 

rpac< d.) 



end# 'sen Dole) 



PROCEDURE CHECK IT; 

'.Checks tj 3 3 .ee whether same is a res».imetior of a ere^.»ious same. If so# 
then boot program is terminated and an indicator is passed to the main 
erosr am u 1 3 a chain •■•ar 1 able. 

•Jar 

d : strms# dd : char; 
besin 

ciearscreen; 
sotoxvC 25 # 1 0 > ; 

"lrltei^^^ 'Is the ?ame t.o be a ^^esumpticn*' 
eotoxv<25# 11); 

writer. 'of a pt‘e*Jious Plav or N )• ^ 
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* r«?aci<dd); 

if <dd=*'V*' > or •sdd^'y^ '* 
besin 

S£TCUPL('RES''‘; 

disk2i 

exiU STARTUP) 
i»nd 

else 3STCUAL( 'NRES'") 
end; Cchecki^> 



Desin 

clearscreeniorawl ;drBw2; 
se^c ha i n< ' /TEHPQ/T^aforo ' ) ; 
check It; 
scribble; 

^etnames; 

aisk2; 

rewrite < dataf i le#''TURNKE’ft :nanerdata' >; 
for i 1 to do 
beein 

datafile-^ :* comi^onentCil; 
ptjt (datafile) 



end# 

close (dataf 1 le#lock > 
end. 



C startup > 
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PftOGRPH TEMPO i 

USES I 4 PPLESTUFF, CHPIINSTUFF, hvSTU*^F; 

<Main dri'j«?r. > 

forecast. = pacxed record 

na(*je : ^trins; 

•^r^uaii : lor.i^-aer; 

'^rftaOstarts : intaser; 
*=»rofR3D 5 irT-*^er ; 
•t«^lRaOcost. : inteeer; 
yriRaOc ost. : : nteeer ; 
yrSRaOcosn : integer; 
in^^entorM : tnT.<»e«>r; 
tval : in^eeer; 

^^Qcost : integer? 
OPcosT. : integer; 
utils : integer; 
PurliMit : inteser; 
OPcostTTL : lotespr; 
utilsTTL ! inteser; 
delete : integer; 

*»ena 1 : i nt eser ; 
t.»nitbu*=* : integer; 
status : integer; 
sort : <^trin ‘9 
end; 



systems - Packed array Cl... 701 of forpcasti 
temp =s packed record 

tyear ^ tred 1 ef t , f b U.f I ef ^ ^ r ^^spent ^ ^ baespent ^ t r i « pent « tb i spent ^ 
trrdspentj tbrdsPent -t.numofsy«teow roajtrob>trda#trdb#tboa>tbob» 
t bd-a > tbdb # tro j t rd > t r mo / 1 r rdd > t f m # t f r d . r . f rr^o » t f r rdd > 
tbo - tbd> tbrdo # r brdd ^ tf bo # tf bd # tt brdo > tf brdd : inteeer ; 
tprtr , tuiar-c ont : c har ; 

tredbudeet^tbiubudeet : srrayC1..201 of integer * 
tp layers : 3rrayn..4] of =tnn<» 
end; 

uar 

ded : strine; 
rs : systems # 
os : systetvis; 
sys : systetes; 
year : inteeer; 

redbudset> biuoudeet ? Cl.. 2^1 -''f irte‘=»m; 

Players : srray Cl.. 4] of strine; 
irtainflae : boolean; 
redlet’t^ oluleft : inteser; 
raespent^ oaespent : inteeer; 
ri spent# bi spent : inteeer; 
rrdspent# brdspent : inteser; 
numofsystems : inteeer; 
prtr : char; 
z ; text; 

roa#roD#rda#rdb#boa#boo#bda#brtb -• intespr; 
ro#rd#rrdo#rrdC#fro#f rd#frrdo#frrdd : inteeer; 
Do#oa#brdo#brdd#fbo#fbd#fbrdo.fbrdd : inti=>«er; 
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"<arc ont. 



Chari 



^SINCLUOE NP2:BPTCHl,t?xt> 
INCLUDE THESI32!BPTCHli:i.t^xt.> 
■C S I NCLUOE TH€S 1 32 r BPTCH 1 B . t^x^ > 
C^INCLUOE NP2:BfiTCH2.texr.> 
<5INCLU0E TH€SIS2:BPTCH20.ti?yt> 
<: S I NCLUOE THES 1 32 : BPTCH2B . text > 
^:SINCLUDE TH£SIS2:BPTCH3-text> 



PROCEDURE NPINHENU (person ; strin'9>i 

{The inain menu, Prouides a central cailin<» eoint from »»ihich all 
expenditure decisions originate# and from mhich all Pertinent 
1 nf ormat i on ob ta i ned • > 
uar 

selection : char; euitflae : boolean; 
begin 

=uitflag false; 
repeat 

clearscreen; 

putit<33#U"MPIN MENU'); 

p»jtit< 10#S,'1...STPTUS OF 'FORCES CURPENTLV IN INUENTORV' >; 
putit< 10#3#'2, ••3TPTUS OF FORCES PUPILPBLE BUT NOT IN INUEHTORV' ); 
PutiU 10#10,'3.,.CUPRENT RESEPRCK PNO O0v»ELOPHENT »3^N0IDPTES' >; 
ptJtitC 10#12#'4. .. INTELLIGENCE/COUNTERINTELLieEHCE INFORMPTION' >; 
PtititC 10#14,'5..,CURREHT BUDFE'^DRV/SVSTEHS PURCHPSE STPTUS' >; 
Putit(10#16#'6, ..QUIT <MPKE NO FURTHER BUDGET DECISIONS THIS VEPR)' >; 
»uriteln;uiriteln;writeln; 

write< ' Enter the desired rp^.ion numoer: ' ); 

read< se 1 ec t 1 on > ; 
case selection of 

' 1 ' : OPStatusC person ) ; 

' 2 ' : aust atus< pers on ) ; 

•'3 ‘ : rdstatus<. person > ; 

; 1 nte 1 status< person ' ; 

'3' : currentstatus< person); 

: <mjitflag := ^*rt.ie; 
otherwise help 
end; 

until suitflag 

■?nd; 'mainmenu'^- 



PROCEDURE STPRTUP C person : string >; 

{ I n 1 1 1 a 1 1 zes the gener i c r ec orn for 1 ooa 1 use bg p I avers . > 

Degin 

If person = plaversCl] 
then svs ;= rs 
else svs bs; 

end; {startups 

PROCEDURE PLPVERONE; 

(Pilots annual budget decisions ^or ^lagpr 1 . Updates all pertinent 
uar 1 ao I es for c omPu»tat i on of <u i nn^r .^nd usage in 'o 1 1 o*»i i ng p 1 av . > 
begin 

star tup ( p 1 avers C 1 ] > ; 
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< p I Cl 2 ^ rt?dOud^pt [year 3 > # 
(Via I menu < p 1 avers C 1 3 > ; 

PT int. C pI averse 13) 
endi CpI aver one > 



PROCEDURE PLPVERTWO; 

CSee Plaverl routine^3- 
besin 

start4jp C p 1 avers. C 2 1 > ; 
update ( p 1 avers C 2 3 # b 1 ubudset C ve ar 3 > ; 
niainmenu < PlaversC23 >; 
print <plaversC23> 
end i C p I .avertKfo > 

PROCEDURE GfJHEENO; 

C C 1 OSes pr i nt ers . > 
besin 

clearscreenj 

if NOT <prt.r = '' 3 ' ) then closp<z#lock 
end; <eameend> 



oesin 

randomize; 

'3€TCU«t< ded); 
if ded*'R£S^ then seta 11 
else 
besin 

initial ire; 
inhoplavs; 
umpire 
er^; 

inainflas :« false; 
repeat 

vear := vear l; 
initvr ; 
plaverone; 
p I a vertJuo ; 
vear end 

unt 1 1 Ilia i nf I as ; 
sameend 
end. 



C tempo > 



THE :^Pr-fHEMTEO Poorcpnpp jc rnMoii cn awn THCPPTED IN THE HmIN 

PROGftHH wS BPTCH 1 USING THE COMPILER "INCLUDE' OPTION, OUE TO FILE 
SIZE CONSTRPINTS. > 



SEGMENT PROCEDURE INITIfiLIZE; 

<ImMaiire-s 17 (ueaf^n 5vt<t.»(ns u«in*? defect It paramet»?r5J 
initializes budgets to default figures; initializes 
‘r*ear, expenditure variables and number of ^ y<. terns > 

PROCEDURE IN I TCP; 
begin 

rsLll.name := "OPl" ;rsCt ].vrauail 1 ;rsC 13 . status 0; 

rsCll.vrRaOstarts := 0;rsC 1 1-^rofRaO := O; 
rsC 1 l.yrlRaOcost :* 0;r<.n 3 . ’^2Ra0cost 0 ; 
rsC 13 .yrSRaOcost ;= 0;rsC 1 3. inventory := 40j 
rsC13.PQcost := 50;rsC IJ.OPcost ;=» 30 ; 
rsC13.utils := 20;rsC 1 3,purl imit ;= 25; 
rsC 1 3.unitbuy 0 ;rsC I 3 . sort 'OQ^; 
rsCl3. delete :* 0;rsC 1 3. penalty 0 ; 
rsCl 3.0PcostTTL := ( rsC 1 3 . OPcost r^C 1 3. in*v^entorv>; 
rsC 1 3 .uti IsTTL ^*rsCl 3 .utlls)*KrsC 13, int.'entory >; 
rsC23. name := "0P2" ;rs»'*23 . y»^a»'a 2 1 ;rsC 23 . status 1 ; 

rsC23,yrRaOstarts :® 1 ;rsC23.yrofPaO := 0; 
rsC23,yrlRaOcost := 400 ; rs C 2 :).yri;O 30 c os t :» SOG; 
rsC23.yr3Ra0cost := 790 ;rsC 2 3. inventory 0 ; 

rsC23,PQcost := 300;rs[23 . OProst ?“ 175: 
rsC23,utils :» 300;rsC23 .purl imit 15; 
rsC23.umtbuy := 0;rsC23.sort "OP"; 

rsC23. delete 0;rsC 23 .penalty := 0; 
rsC23.0PcostTTL :* < rsC23 . ORrost >+< r^.C 23. inventory); 
rsC23 .uti IsTTL ( rsC23.uti Is rsC23. inventory ); 
rsC33.name := "0P3" ;rsC33 , yravai 1 r= S :rsC33 . status := 1; 
rsC33.yrPaOstarts := 3;rsC33. yrofPaO := 0; 
rsC33 .'yrlRaOcost ;* S00;rsC33.yr2RaOcost lOOG; 
rsC33 .yroRaOcost 800 ;rsC 3 3. inventors 0; 

rsC33.PQcost r= 200 ;rsC 3 3. OPr ost := 100; 
rsC33. utils := 250;rsC33 . purl imit := 15; 
rsC33 .unitbuy :« 0;rsC33.=ort ; 

rsC33. delete := 0;rsC33. penalty := 0; 
rs C 3 3. OPc os tTTL := ( rs[ 33. OPc ost )*»< rsC 3 3. inventory 
rsC 33 .uti IsTTL rsC33. uti Is )4< rsC31. inventory > 
end; <initoa> 



PROCEDURE INITSET 1 C 8 ; 
oegin 

rsC43. name "081 " ;rsC43 . yravai ) 1 ;rsC 4] . status := 0; 

rsC43.yrPa0starts ;= 0;rsC43 . yrofPaO 0; 

rsC4 3,yrlRa0cost ;= 0;rsC4 3.yr2RaO'TOSt P; 

rsC43.yr3Ra0cost ;= 0 ;rsC 43 . inventors := 20; 

rsL43.PQcost 70;rsC43 . 0Prn«.t := 150: 

rsC43.utils ;= 120 ;rsC43 .purl imit :« 15; 

rsC4j. uni thus := 0;r<C43.smrt "09": 

rsC43. delete 0;rsC 43. penalty ;= 0; 

rsC 4]. OPc os tTTL := <' rsC4l . OPcost rsC 43. inventors n 

rsC43, uti IsTTL := < rsC4]. uti Is )+<’rsC43. inventors ); 

nsC53.name := "OBlmod" ;rsC53. sravai 1 := 3;rsC53 - status := 1; 

nsC53.yrPaOstarts := 2;rsC53. yrofPaO := 0; 

rsC53. yrlRaOcost 100;rsC53. yr2Ra0cost O; 
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• yrJR^Ocost. := ;= Oj 

r<C51. wQco«.t ?0>r5C51. OPcDsr. t20; 
rsC5].ut.iIs :» 14€i;r^C51 . p»jri iwit := 15; 
r-rCSl.unitbuy :» y;r«C51. ?ort. := 'O&'i 
rsC5].deier.e :» 0;r^C5] . pwalty := 0; 
rsC5],0PcostTTL :* (r^C5]-0Pro«t>*<r5.C51. inventors); 
rsCSl.u^ilsTTL :=> ( rsC 51. uti Is >*« r^C53, inventors* >; 
rsC6].name '082^ ;rsC81 . s»ra<.‘ai 1 ;= 2 ;rs C$1. status := 1; 
rs C $ 1 . yrPaOstarts : = 1 ; rs C 8 ] . yrof RaO 5 = 
rsC6].‘5*rlRa0cost ;= 600;rsC61 . ’rH^iPaOcost := 0; 
rsCSl.yrSRaOcost := 0;rs C 6] . inventors* := 0; 
rsC6].AQcost := 75;rsC6] .OPcost := 35; 
rsC61. utils ;» 40;rsC61,eurliff^it := 35; 
rsCSD.unxtbuy := 0;rsC61*sort. := '09' f 
rsC 6]. delete ;= 0;rsC61. penalty ;= 0; 
rsC6] .OPcostTTL := < r^C61.0Pcost>K rsCSl. in*jentory >; 
rrCSl.utilsTTL := ( rsCS] . utils rsC8] . inventory > 
end; < initSET!nd> 



PROCEDURE INITSET208; 

Oeein 

rsC71.name :* '083' ;rsC71 . sH^3^.»ai 1 4;rs(;7] . status ;= 1; 

rs C 71. yrRaGs tarts := 2;rsC7] . yrofRaO := 0; 

rsC7] . yrlRaOcost := 508;rsr71. yrSR^cost := 800; 

rsC71, yrSRaOcost :» 0;rsC 71. inventory 0; 

rsC71.-)^cost := l00;rsC71 .OPcost •- 50; 

rsC71. utils := l25;rsC7] .purl imit := 15; 

rsC7] . unitbuy := 0;rsC71. sort. := 'OB'; 

rsC71. delete 0;rsC 71. penalty ;= 0; 

^^C 71. OPcostTTL := ^ rsC 71 . OPcost'^-*^ rsC 71 . inventory ); 
rsCTl.uti IsTTL := < rsC71 . uti Is rsC7] . inventory ); 
rsC3].naine '0B3mod' ;rsC0] . yra»v'3i I ;= 3 ;rsC3] .status ;=* 
rsC8].yrRa0starts 2;rsC*33. yrofPaD ;= 0; 

rsC3] . ’=*rlRa0cost :=» 600;rsC31 - yr2Ra0co<t := 0; 
rsC31.yr3Ra0cost ;= 0;rsC31 . in*jentorM ;= 0; 
rsC31.wQcost 88 ?rsC9] . OPcos.t 75 i 
rsC 31. utils := 200;rsC3] . purl ifoi t := 15; 
rsC3].unitbuy := 0;rsC31.sort 'OB': 
rsC81. delete :* 0;rsC 81. penalty := 0; 
rs C 3 1 . OPcostTTL : = < rs C 3 1 . OPcost W rs C 3 1 . : nvent^Dry > ; 
rsCSl.uti IsTTL < rsC8] -uti Is H< rsC3] . inventory 
rsC3].name := '0B4' ;rsC?l . yr avail 5;r< C31 . status ;* 1; 

rsC31. yrRaOstarts 3;rsC3] . yro+'RaO := 0; 

rsC91. yrlftaOcost := 500?rsC3] . yrSRaOcost := 600; 
rsC91. yr3Ra0cost := 0 ;rs C91 . in^^entory := 8; 
rsC3].A0cost :» 75;rsC9] .OProst := 25? 
rsC9]. utils := 75;rsC9].Puriimit ;= 38s 
rsC33 . uni tbuy 0;rsC91 , sor^- := 'OB'; 

rsL91. delete := 0;rsC9] . penal ty := 0; 
rs C 9 ] . uPc os t TTL : - < rs. C 9 1 . OPc o« t rs C 9 1 . i nventory > ; 

rsCS] .uti IsTTL rsC9] . uti Is rsC9] . inventory ,• 
end; C init6ET2ob> 



PROCEDURE INITDft; 

PROCEDURE INITDfiftUX; 
cesin 

rsCl0].name != 'OPl ' ;rsC10] . yravai 1 := 1 ;rsC 10] . status 
rs L 1 0 ] . yrRaOstart s : = 0 ; r s C 1 0 ] . yrof RaO : = O ; 
rsC 10] . yrlRaOcost := 0;rsC 10] . yr2Ra0cost := O; 
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rsCly] »':*r3R-5Dcost Itii 3, imentcrv ;= 

r5.C103.PQc<?^t := 1 00 ;r«C 103 ?= 60; 
rsC103,util-5 := 50;rsC 103 .ptjrl imit 25; 
rsCl03.unit^uv 0;rsC 103 . sc>rt. := 'DP'; 
rsC103, delete := 0;r5C 103,eenalf^ := D; 
f^C103,OPco5tTTL ;= (r«C103.OPco^t rsC103. inventorv); 
rsC 103.utilsTTL := < rsC 103,uti Is )*K r-sC 103 . irv/entors >; 
rsC113.name :» 'DPlmod' ;rsn 1 3, vrai*9i 1 := 2;rsC 1 1 3. status : 
end; <initdaau>^> 



J!Jesin 

initdaaux; 

rsCin.yrRaOstarts 1 ;rsCl 13.*=‘rofPaO := 0; 
rsC 1 13.yrlRa0cost 200irsC113.'5*r2RaOcost := Q; 

rsCll3.yr3RaOcost :« 0;rsC 1 1 3. im.»#»nt.cvr^ := 0; 
rsC113«PQcost := S0;rsCl 1 3.0Pcost :® 60; 
rsCll3. utils := 80;rsC 1 1 3.e»jrl ini t !- 25; 
rsCll 3.unitC>uv ;= 0;rsC113,sort 'DP'; 
rsCll3. delete :* 0;rsCl 1 3.eenalty := 0; 
rsC 11 3.0PcostTTL :=» (nsC 1 1 3, OPcost >*«: nsCl 1 3. inuentor^:• >; 
rsC113*utilsTTL := < rsCl 1 3. uti Is rsC 1 1 3 . inventors 
rsC123.na<iie 'DP2';rsC123.'^auail 5 ;rs C123 . status 1; 

rsCl23.yrRaOstarts :» 2;rsC !23.'s*rofRaD ?- 0; 
rsC 123.yrlRaOcost 300;rsC123. '^2Ra0cost 5= 800; 

rsCl23-*^3Ra0cost :» 800;r^C123 . inuem.orv := 0; 
nsC123.PQcost := 50;rsC123.OPcost 40; 
rsC123. utils 120;rsn23,ef,rr1 init 20; 
rsC 123*unitbuv 8;rsC 123. sort ;» 'DP'; 
rsC 123 .delete := 0;rsC123.eenalty 0; 
rsCl23.0PoostTTL ( rsC 123. OPcost )*jK rsC 123 . inventory ;; 
rsC123.utilsTTL :« < rsCl 23. uti Is )*<rsn 23, inventory ); 
rsC 133. name :« '0P3' ;rsC 133 .yravai 3 5 ;rsC 133 . status := 1; 

rsC 133 . *=»rRaOs tarts := 3;rsC133 .yro^^'RaP != 0; 
rsC133.yrlPaOcost :» l000;rsC 133. vrdRaOcost :« 1580; 
rsC 133 .yr3Ra0cost := 0;rsCt33. invenr.ory 5= 0; 
rsC 133.PQcost :* 68;rsC133 . OPr-ost := 29; 
rsCl33 .uti Is 99;rs Cl 33. p*jr I ^ mi t 25; 

rsC I33.unitbuy 0;rsC 133. sort := 'DP'; 
rsC133. delete 0;r<C 133 -penalty := 9; 
rsCl33.0PcostTTL := (rsC133 .OPcost)^ rs Cl 33. inventory ); 
rsC133.utilsTTL < rsC133.uti Is >4< 133. inventory > 
end; <initda/ 



PROCEDURE INITD3; 

PROCEDURE INITOBPUX; 

Deein 

rsC 14], name 'DBl' ;rs CM], :s t ;rs Cl 4], ^.t.atus : = 
rsC 143. yrRaOstarts ;= 0;rsC 141 . Mrvjt PaD := 9; 
rsC 143, yrlRaOcost : =*0:rsri43. yriPaOcost := 0; 
rsC 14], yrZRaOcost := 8;rsC 143. im;entory := 190; 
rsCl^l.dQcost 40;rsC 143 . OPcost 20; 
rsC143. utils 15;rsC 143. Purl unit 25; 
rsC143. unit&L»y 0;rsC 143. sort 'D8' ; 
rsC 143. delete 0;rsC 14] .penalty := 9; 
rsC 14], OPcostTTL rsC 143. DPs ost /■**< r< Cl 43. inventory;; 

rsC143.utilsTTL := C rsC 14] . uti Is rsC 14] . inventory > 
end; < i rn toba*. ry > 



bee in 

im tcoaux; 
rsC 153 . name 



'DB2' ;rsCl53,yravai 1 ;= 3 ;rs C 153 . status := I; 
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rsClSl.yrftaOstar^-i := 1 ;r<.Cl51 . RaD :• 
r*s£151,’=*rlRa0cost •i09;r<Cl51.'-<r'2RaOcost := 40^; 
r^C153.yr3RaDco*5t := 0;r^C 153- in^/en^orv ;- 0> 
rsC153,PQcost ;= ?9ir^C 153. OPcost. := 79; 
rsCl53.ut.lls := 100 #rsC 153. purl imit. := 25i 
rsCl53.unitbuy := 0;rsC153.«ort. '09'; 

rsCl53. delete 0;r^Cl53.penalt'e := 9; 

rsC153.0PcostTTL <'rsC153.0Pcost.>^rsCl53.inuentor^:»); 
rsC 153 .uti IsTTL :« rsC 151. uti Is '^'KrsClSl. inventors/; 
rsC163. name := '083' ;rsClS3. vrav,«ai 1 :=» 3 ;rs- Cl 6 3. status 1; 

rsClSl.'^rRaOstarts := 2;rsC 163 . yrot'RaO := 9> 
rsC163.’5^rlRaDco<.t 1000;rsn63.vr2RaOcost :» 9# 
rsC163.^r3Ra0cost 3;rsC 163. in^;entor^ := 9; 

rsClSl.AQcost ;= !00;rsC163 .0Pro<t := 50; 
rsClS3. utils := 200;rsC163.p«jrl imit 25; 
rsClSl.umtbuv :» 0;rsC163.sort 'OB'; 
rsC 163. delete :=» 9;rsC 163. Penalty :* 9; 
rsC IBl.OPcostTTL ( rsC163 . OPcost )-?K rsClS] . im^entory ;; 

rsC 163. uti IsTTL < rsC163. uti Is >*< rsC163 . irx^entory >; 
rsCl73.name ' 084' ;rsn?3. yra*.^ai 1 5 ;rsC 173. status 1; 

rsC173.*:»rRaDstarts 3;rsC173.yrofRa0 0; 

rsC173. yrlRaOcost := 600;rs.Cl73.yr2RaOcnst := 890; 
rsC173.yr3Ra0cost 9;rsC 173. inventory := 9; 
rsCl73.PQcost :» 150;rsC173. OProst 225; 
rsC173.utils 400 ;rsCl 73. Pur limit := 19; 
rsC173.unitbuy 0;rsC173.scrt := '08'; 

rsCl73. delete :» 9;rsC173. penalty := 9; 
rsCl73.0PcostTTL ;= ( rsC 173. OPcost )**^rs Cl 73. inventory^; 
rsC173.utxlsTTL := < rsC 173. uti Is )♦< rsC 173. inventory ); 
end; 'initob> 

PROCEDURE INITGEHRLDPTQ; 
besin 

bs ;= rs; 

redbuosetC 1 3 6390;redbudsetC23 9600;redbudsetC33 9499; 

redbudsetC4] 9200;redbudeetC53 := 3199;recbudeetCS3 := 9199; 

redbudeetC73 9 199; redbud set C93 := 9t90;redbudsetC33 := 9100; 

redbudsetC 193 := 9109; 

redbudset C 1 1 3 ; = 9399 ; redbudeet C 1 2 3 : - '^690 ; redbtidset Cl 3 3 ; = 9400 ; 
redbudeetC143 := 9209 ;redbudeetC 153 9199 ;redbudeetC 163 := 9199; 

redbudsetC 173 9100;recbudeetC 133 9100;redbudsetC 193 := 9100; 

redbudeetC203 9190; 
bluoudeet redbuaeet; 
rapspent 9; 

Daespent := 9;rispent 0;bi spent 9;rrdseent :* 9;ordspent := 9; 

numof systems : - 17; 

:*ear := 9;<oarcont 'N' 
end ; C i n 1 1 senr I da ta > 



oesin 

ini toa;ini tsetlob;initset2ob;initda;tnitdb; initsenrldata 
end; C initialize} 
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ant H'OLLOWIHG SE6HENTED PPOCEDURES PRE COHPILEH awo INSERTED IN THE HPIN 
PROGRPM HS SPTCH 1ft USING THE COHPILER ^INCLUDE" OPTION, DUE TO FILE 
SIZE CONSTRftINTS.> 



iEGHENT PROCEDURE INTELSTPTUSC R^on : >trirv?>? 

\fic cessed from i^in menu- Provides status of current intel 1 isence. 
ft 1 lotos the erocurement of future intel Iioenre, the display of 
acquired intelligence# and the scraeeir^s of all ree«jests budgeted 
for the current year^> 
var 

iflae : boolean; d : char; 

PROCEDURE RIO INFO; 
var 

e s char; 



PROCEDURE BLUERIO; 
besin 

if (fbo 3 109) or 
besin 

fbo:=fbo“l09; 

end; 

if (fbd a 109) or 
besin 

fbd:«fbd-109; 



^ f bo = -10ft) then 
b 1 seent : =d 1 seent- 1 09 ; 
(t'^bd = -109) then 
b i seent : =b i se^nt- 1 09 ; 



b 1 u 1 ef ' t : =b 1 u 1 ef t + 1 00 



bluleft:=bluleft+100 



end; 

if < f brdo - 169) or <fbrdo -199) then 
besin 

fbrdor»fbrdcr-l99; bi spent: =sbiseent-l 09; bluleft: =Olulef‘t*»'109 



end; 

if <fbrdd = 109'‘ or f brdd = -199^ then 
besin 

f brad; ^♦‘brdd* 1 9R ; b x s pent : =b i spent- 199; b 1 u 1 ef t ; ^ 1 u I ef t+1 09 
end; 

if (fro = -209) or < = -iftft'* then 

begin 

fro;=sfro-^2<^9; btsp<*nt:-hi«pent-^<^0; bluleft;=bluleft-J“299 
end; 

if ( f rd = -290 or < f rd = -190 > then 
beam 

frd:=frdt209; o i spent ?=bt spent -290; bluleft;=Olulett-i-200 



eno; 

if k f rrdo - -290 > or ( f rnfjry s - 199 ) then 
bee in 

frrdo:=frrdor3*0; bispent; ^iSP^t-290; bluleft:=blulef t+209 
end; 

if ( f »^rdd =■ -209) or ' frrdd - -199^ then 
beam 

frrdd:*frrnd+200; biSP«nt.:-rt3ispent-209; bluleft:=bluleft+200 
end 

end; Cbl»«er^d> 



PROCEDURE REORIO; 

Deem 

if f ro = 199.> or '' f rn = -!99‘) th«*r» 

Deem 

fro : *^o- 1 00 ; ns pent : =n « »enr.- \ 99 ; red 1 eft : =red 1 ef t-j- 1 00 

end; 
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If f r«l s U‘i^> or f rd = -100> ^h^ 
be'? in 

frd:=frd-l00i r i pent ;-ri« pent-! 00? redleft: =rectlefttl00 
end; 

if < f rrdo =■ 100 ) or <' f rrdo = -109'^ then 
bee in 

f r rdo : =f rrdo- 109? r i eeent : =r i e.pent- 1 99 ; red 1 eft : =red 1 ef t+ 1 00 
end; 

If < f rrdd = 100> or 0'*rrdd = -t00> then 
bee in 

frrdd! =fmdd-100; r i ■spent :=ri spent- 109; redleft:=redlef trl00 
end; 

if ( f bo = -200 > or ( fbo - -J00.^ then 
Deem 

fbo:=fbor>200; ri spent :=rtspent-209; redleft:=redleft+200 
end; 

if V f bd = -200 > nr < f bd * -109) then 
Deem 

f bd: =fbd+209 ; rispent ; =ri sper>t.-200 ; redl ef t : =redl ef t+200 
end; 

If < f brdo = -209) or f bmo - -199) then 
Deem 

f brdo: =fbrdoe209 : risrenr ? spent-299; redl ef t: =sredi ef tt200 
end; 

if ( f brdd = -200'' or < f brdd = -109) then 
Deem 

f brdd: =fbrdde200; r: -spent : =r i SPent-209; redl ef't; ^edl ef t*»“200 
end 

end; <redrid> 



Deem 

if person = players Cl 3 then redr id 
else Dluerid; 
c learecreen; 

ptjtit< \5Ad,'^L I NTELLH^ENCP/CnUNTEP INTELLIGENCE PROCUREMENTS")? 
p^jtitC 15,11," HCUE SEEN CANCELLED FOR THE VEPft.",'; 

p»j 1 1 1 < 1 5 A 1 E , " < Pros s ® FT I JPM to Cont i nue > " > ; 

re ad< e ) 

end; (ridinfo> 

PROCEDURE 8UVINF0; 

'^ar 

e : Char; 

PROCEDURE BUVMENU; 
uar 

f : .:nar; 

PROCEDURE OOITRED; 

^'ROCEDURE HO; 

Deem 

1 f 's f ro= 1 00 ' or < f ro=- 1 00 ) ther 
Deem 

c 1 earscre^; 

putit( !H,10,'FUNOINR FOR '^^IS ITEM HHS HLREHOV BEEN PROUIDEO" 

put lU IS, 11." ' Pnos-= RETURN to Continue>' ); 

r^ad< d > ; 
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b»j^::»inerru > 

>?nd; 

f r o : = f ’ro-K 100# ri < : *r i -= pph t -r 1 00 : red 1 eft : -red 1 et* t- 1 00 # 
c learscreen# 

put:t<' 12>10#"Vo»j allowed ^100 for intellisence procurem 

p»jtit< 12>11 <FVe«.^ RETijRN to Ccntinue>' >; 

rearjC d ) 

endi Caa> 



PROCEDURE BP# 

Deem 

if (frd®100'> or <frd*-t00'» then 
bee in 

cl earecreen# 

p»jtit( 18.10#'R)MOTNP FOR thts ITEM HAS QLREPOV BEEN PROUIDEO' 

ptjt:t< 18# 1 ! >' :Pro^s RETURN to Contimje>' ># 

read<d>; 

PYitC buvnenu> 
end# 

frd;*frd-ti00; ri<Pent;=rT^pent>100s redleft:=reolet't-l00; 
c learecreen; 

p»jtit< 12#l0#>^Voo ha«'e ju-st allored 5100 for Intel lieence procurer 

p»jt 1 t^s 1 2 # 1 1 # '' < P*'es e P.ETiJRN to Cent 1 ntje.> ' > ^ 

read< d ) 

end# \bD> 



PROCEDURE CC# 

Deem 

if cfrrdo=t00) or <frrdo«— l00^ ♦hen 
beein 

clearecreen# 

etjtit< 16#10#'FUNO!H0 FDP THIS ITEM HAS QLPEPOV BEEN PROUIDED' 

i 

p*jtit< I6#ll#^ RETURN to Continued' )# 

read< d )# 
exit< buvnenu > 
end# 

frrdo:=frrt:jn‘tl00; ri^penT.?-ri<;p»nt**-l00 ; red 1 eft : =red left- 100 i 
clearecreen; 

putiu 12#10# 'Vou haue juet allot«»d 5100 for intellieence procurer 

ent. ^ >; 

pHjtitC 12# 1 1 #' ^ Pre«e RETURN to Continued' )# 

ri»ad< d > 

end# <cr> 



PROCEDURE GO; 

Deem 

if »-frrdd^l00) or ^ frrod=— ♦ 00 '> ♦hen 
Deem 

'! lean? creep s 

putiU 16#10#'FHNOIN0 ^OR THIS ITEM HAS HLREADV BEEN PROUIDED' 
Put 1 tC 1 S # 1 1 # ^ < Pre« ? PETJJRN to Cent 1 nue >' )* 
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n»ad<d>i 

frri3a:®frrcd+100# ri«P<?nt:*=*^i?p'?nt>l»?95 r^left:=r^ left- 100# 
clear^creen# 

putit( l2#10#'Vou haue ju5t alloted ri09 for intelliaence procurer 

ent. ' >; 

putit< 12#11 #' 'Pre«^ return to Continue>' ># 

reacK d > 

end# ’!dd> 

PROCEDURE EE; 
be^in 

if (fbo»-200> or <fbo=-100> then 
beein 

clearecreen; 

16#10#"RJNO!NG ^OR THIS ITEM HAS PLREPOV 3EEM PRiDUIDED' 

>; 

putit<l6#n#' <Pree^ RETURN to Continue>' '># 

r^ad< ri")! 
exit( buynenu .) 
end# 

fbo:*fbo-200# ri^pent:^isPen^'-*-?00# red 1 eft left-200# 
clearecreen# 

p«.»tit< 5#I0#'Vou have ivet alloted 1200 for Intel li sene e>^counter in 
te 1 1 1 eenc e procurement • ' > ; 

putit<l3#ll#' <Preos RETURH to Continue>'); 

read( d ) 

end# <ee*> 

PROCEDURE FE; 
beein 

if <fbd«-200> or <fbd=-l00> then 
bee in 

c lear^cre^n# 

p^jT.jt< 16#10#^PJNOING FOR THIS ITEM HHS PLREPOV SEEM PROUIOED' 

J i 

putit< 18#11#' RETURH to Continue>'); 

read<d); 
exit< buvmenu > 
end; 

fbd:=fbd-200# ri spent: =ri«.pent-J*200; reel eft: =red left-200; 
clearscreen; 

putit< 5#10#''Vou have Just alloted 1290 for Intel 1 ieence/'counter in 
t e 1 1 1 eenc e ptoc ur ement . ; 

p»jtit< 15#1 1 #^ '^Press RETURN to Continue>^ J; 

read< d > 
end; 

PROCEDURE GG; 
beein 

i f ( f brdo-— 200 ' or < ^brdo=— t OG ) then 
beein 

cl eafTscreen; 

PutiU 16#10#'FUHOING FOR THIS ITEM HPS HLREPOV SEEN PROUIDED' 

f 

putit< 16#1 1 # ^ ''?rp«s RETURN to Continue>' ); 

readC d ) ; 
ex 1 1< buymenu > 
end; 
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cl<»arscr<?®n; 

PUtiU 5#l0#^Vou haue ju«t jl lotted 5200 for int-ei 1 counter in 

tel licence procurement , '' >j 

pu 1 1 1< 1 5 # 1 1 # ' < Press RETURN to Cent i nue > ' ‘> ; 

read< d > 

end# C?e> 



PROCEDURE HHs 
beein 

if (fbrdd*-200> or < fbrnd=-l90*> then 
beein 

clearscreen# 

PUtlt(16#l0#'FUNOING PnR THIS ITFH HfiS fiLREPOV BEEN PROUIDED" 

p»jtiU 18#11 ''Press RETURN to Contin»je>'' ># 

read< d .) ; 
exit< buymenu ; 



end# 

fbrdd:=fbrod-200# ri«.pentt=»^ispent-*'2iE*0# redleft:;=redlef t--200# 
cl e arse reen; 

put 1 1< 5 # 1 0 # ' Vou ha^.*e just all oted 5'200 for i nte i 1 i sene e/c ounter i n 
tellisence procurement, ' ); 

p»Jtit< 15#1 1 #'' ^Pr<»s.s RET1JRN to Continue>^ ># 

read< d ) 

end; ^hh> 



beein 

case f of 

'b'#"B' 

'c^#'C' 

.'E' 
f' ."F' 
's' 

's^#'Q' 

end 

end# 



Mi 

SB; 

CC# 

no# 

EE; 
PF; 
» 3 » 6 # 
HH# 
if las 



tnje 



^*OOi^red> 



PROCEDURE OOITBLUE; 

PROCEDURE PP; 
besin 

if ^fbo-t00) or <fbo=— then 
besin 

•: learscreen; 

putitOS.lGu '^JNOlNG for this ITEM HPS PLREPOV BEEN PROUIDED' 

' ; 

PM 1 1 1.< ! 6 # 1 1 # ' «. Pres a RETV.IRN to Cent i nue > ' > ; 

reacK d '? ; 
exit^ b* tsmenu > 
end; 

fbo: =fbo-^100; bispenr.: =»:» 2 «pent+lP 0 ; biuieft: =oiuief t-lU0; 
c learscreen; 

putit^ 12#10# ' Vou have just ailoted 5100 for inteilisence procurem 

ent , ■ J i 
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' Pr '?'=‘ t RETURN to Cent i nue.> ' ) ; 



putiu 12,11," 
r»ad< d > 
ena* 



PROCEDURE B8; 
be^in 

if <fbd=100’* or <fbd*-10O> th«»n 
begin 

cl ear-serpen; 

putit< 16> 10 , 'FUNDI for tuts ITEM HPS PLREftOV BEEN PROUIDED' 

p«jtit< 1S,1 1 ,' return to Continued' 

r<?ad*< d > ; 

exi t( bu'-wienu > 

•arxii 

tbd:=fbd‘**100j bi?»ent:=bi«p»»nt.>100; bluleft :=bluief t-l00; 
cl*?arscr<?<?n : 

putxt< 12, 10, 'VoL» ju<t ailoted T1O0 for intelligence procurem 

pu 1 1 1< 1 2 , 1 1 , ' ' :: RETURN to Cent i nue > ' > ; 

read< d ) 

end; Cbb> 



PROCEDURE CC; 
begin 

1 f ( f brdo=l 00 ■> or ( f brdo*-l 00 then 
oeein 

clear^.creen; 

p»»titMi=i,10,'RjNOTN0 FOR THIS ITEM HHS HLREHOV BEEN PROUIDED' 

put:t< 16, 1 1 , ' <-pr^<y^.^ RETURN to Contimje>' 

nead< d > ; 
e'c 1 1< b»jvini?nu > 
end; 

f brdo : =V*brdOP 1 00 ; b 1 « pent ; =b i « pent.p 100; b I u 1 eft ; =b 1 u 1 ef t- 1 00 ; 
c lear<creen ; 

p»j 1 1 1( 12,10, ■ Vou ha<^e j ug.t a 1 1 ^ted 00 for 1 nte 111 gene e proc urem 

putirt 12,1 1 RETURN to Contin»je>' >; 

read< d > 
end; 



PROCEDURE 00; 
opgin 

I f ^ *'bndd= 1 00 on •' tdrnrt=-i c<0 > t 
Deem 

c leaner reen; 

putit< 16,I0,'-UHDIHG FOR THIS ITEM HRS QLPEPDV BEEN PROUIDED' 

p».»tit< 1»^, 1 1 , ' /D^«c sip-pi ip^ Continue>' >i 

readc d ; 

exi t( bu'«*^^ntj > 

end; 

f br dd : =f brdd-»“ t O0 ; b 1 '-.pent : ’ 5 p«m^t. -^100; n I u i eft : I u I ef t- 1 00 ; 

c lear^creen ; 

»*jt 1 1( 1 Z, i 0 r ' Vou I Lign a \ I ot ed ? 1 00 ^ or 1 nte 111 gene e procurer 
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•?nt Ji 



put 1 1 2 j 1 1 • Pr s RE TURN to Cent i nue > '' > > 
rp.%d< d J 

>?ndi \dd> 

PROCEDURE EE; 
bMin 

if <fro»-2O0> or (fro»-10tH> r.hpn 
bp-9in 

cl ear «.cr^pn; 

putiu l6>10."FUHDrN0 FffR this ITEM hmS Hi.REPOV BEEN RROUIDED' 

; 

puMtTtKMi^'' RETURN to* Conti rrt^e.>' ); 

re 5d< d ) f 
ev X U buvnenu ) 
end; 

fro:=fro-200; b i <penr. : =bi« rent -»*200; blulef t: =blul eft-200; 
cl earecreen; 

p»jtit.< 5»lEt*^Vcu hai-'p JuM. allntpd ^09 for in tel 1 leenc encounter in 
te 1 1 1 eenc e procurement . ’ ) ; 

putxt< 15.11^^ ' Pnees RETURN to Continue>'‘ >; 

readc d > 

ena; f pp*'' 

PROCEDURE ffi 
beein 

if (frd»-200> or (frda-l90> then 
oeein 

c lear^creen; 

putxt< l6.10^"RINOINGr FOR THIS ITEM HHS PLRERDV BEEN PROUIDED' 

); 

putit( 16. 1 1 <pr^c-. return to Contxnue>' >; 

read< d ) ; 
exit< buymenu; 
end; 

^‘‘rd? "f rd-200 ; b x sppnt : x « pent +200 ; b 1 u 1 ef’t : =b 1 u 1 eft-200; 

c learecreen; 

put 1 1( 5# 1 0 . Vo*j haue Just all oteo Jr200 for x ntel 1 1 eence/*counterx n 
te 1 1 1 sene e procurement , ^ ; 

Put 1 1( 15. 1 1 # ^ ''Pree.s PETljRN to Continue/" >; 

readC d ^ 

end; <’*fC 

PROCEDURE 06; 
beein 

if < f rrdo=*-200 > or < frrdo=-100'' then 
beein 

c 1 ear screen; 

. Putita6.10."=UNOTH6 FOR THIS ITEM HHS PLREPOV BEEN PRCVilDED" 

•’ ; 

Put! tv 18# 1 1 . " Pnoss RETURN to Continue>" 

reaG<d>; 
ex X TX buy menu ^ 
end; 

frrdo:=frroo-200? b i spent : =bi«pent+290; blulet't: =01 ul eft-200; 
clearscreen; 

Put 1 1 < 5. 10. ■■ Vou have just. aPoted 5200 for intei 1 leence-^counterin 
teilieence procurement. 

putxul5.11." ■ RETURN to Continue>" 
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r*?5d< d > 



•?nd; 



PROCEDURE HH; 
be^in 

if (frrdd^200> or f rrdd«- 1 00 > th*?r 
be-sin 

cl'?ar?cr^^; 

putxu 16,10, FUNOIHO FOR THIS ITEH HHS ^JLREftOV SEEN PROUIDEO' 



tell i’?ence 



putit-C 16,1 1 Press RETURN to Continue>' >; 
read< d ) ; 
exxt< buyn^pnu) 
endi 

f rrdd: =f rrdd-200; b i spent. : =b x seen t-^200 ; b 1 u 1 et* t : =0 1 u 1 ef t-200 : 
c learscreenj 

p»jt.xtc5,l0,^Vou nave just allot.ed S209 for Intel lx aenc e/counter in 
procurerftent, )* 

putxtC 15, 1 t > ' ^ Press RETURN to Continues' >; 

re.3d< d > 

end; Chh'j 



bee in 

case f of 





; 


hA; 


o', "8" 


: 


SB; 


c' >'C" 


• 


uC ; 


d',"0' 


; 


DO; 


e','E" 


: 


EE; 


f" ,'F" 


: 


FF; 


s","G" 


: 


SG i 


h" ,'H" 


: 


HH; 


p" ,"Q" 


: 


if las 



end 

end; 



true 



<:doitblue> 



Forces' i 
Fore es ' ) ; 
ft&O' )i 
RiO' 



oesin 

c lear-i-creen; 

putit<32, I, "PURCHASE OPTIONS";; 

putit< 16,3 ,' A. . .Cj«rr'ont ff^rce Strenstr of Ener^v Offensive Forces' >; 
pijtit< 16, *1, "B. . -Current Force Strorteth of Defensive Forces' ); 

PutxtC 16,3, "C. .. Current Offensive Ere^s RJSfO Projects" ); 
putit< 16,6,"0. . .Curr-^t Defensive £nen'-» R^i^O Projects'’ ;; 
putiti 16,7, "E. - .Supelv Counterintel 1 leence Res»ardins» Oiun Offensive 

PutitC 16,6, ' F. . -Supe^ V CounterintelT isence Reearoins Quin Defensive 

=‘utit< 16,9, '6 . . -EuppI’** Counterintel 1 isence Reeardins Own Offensive 

Put 1 1< 1 6 , 1 0 , " H . . , 3upe I y Count er i nt e 1 1 : sene e Pesard i ns Own Def ens i ve 

putitC 16, 1 1 , "0. . .Quit " '•; 

e<jtit( 13,14,' Intel 1 leence Cost per Item <' Q thru 0): SIO0' ;; 
putit< 13, 15, 'Counter intellraence Cost per Item E thru H>: s2Si0" >; 
if person = p 1 averse I ] then 
bee in 

?otoxy< 13, 16 »;writeln< "Annual Defense Buoset Pemainins: s'" ,redl 
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pft. 



-?nd 

1 r"? 

De*=»in 

?otoxv< 13# IS ^ 'f^nnual Oef<?rtse BucJ^t Remainins: S' >blul 
and; 

putitt 18 # 13 #'SMTER OPTION LETTPR; 

37*13 > ;ra ad< f ”> ; 

if p^r^son = Pl^yar^Cll t.han do i trad 
a Isa doit blue 

and; <buynantj> 



basin 
raaaat 
busfnanu ; 
tjHMl if las 

and; <bu«info> 

PROCEDURE SET INFO; 

'.*ar 

a : cnar ip»s»np,os#o# 1 >c : 

PROCEDURE LINEl; 
basin 

if Parson = PlavarsCl] than 
basin 

if ro = -109 than 
basin 

PUT. itt 10*3# '01^4 unabia to broach anamv countarin^al Iisenca ba 

rriar' ); 

avit< linal > 
and; 

if ro = 199 th^ 
basin 

p randojn i^^od 209; s randorn mod 299; 
o :« ooa+cob; op := o-o; os •= 

^otoxy< 19 j3>; 

>»ri teln< ^ Tot al anat^iv offansi^^a utils ara aotinatad to ba betui 
*»an '#op»' and ' #os >; 

axit< 1 inal > 
and; 

putit( 19#3.' NO INFORHOTTON PROCURED^) 
and 
alia 
basin 

if DO = -199 than 
basin 

out itf i9#3# ^CIP 'jnsdlo to broach anan^ countarintal 1 isanca ba 

rr 1 pr ' ; 

aviu 1 ina^ > 
ana; 

if bo - 109 than 
basin 

p ; *r random mod ^99; ^ := r-^ndon mod 209* 
o : = roa-H^ob ; op : = o-s } os • = ; 

sotrvN^ 19»3>; 

'»ir:r,*3'in< 'Total an^my of+"^f>=.T< ♦<> utils ar»> astimatad to oa batw 
pan .OP*' ind • *0'=» >: 
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NO information PPOCURED") 



tC 1 inel ■' 

•rnd; 

PutitC 

•?nd 

PROCEDURE LINF2; 

If then 

if rd - -too r.hen 

put.itX 10#12^ ^CTQ unabl*» t.o hne^n »»ne»nv count<?rint.ei 1 i?ence d 

;^rnier' ); 

1 ine2> 

end; 

if rd =s lOP^ then 
De-sin 

(» := random "Wd 200; ^ := random mod 2O0; 
c :» bda^db; of> := o-^; := 

=»ot.oxvK 10,12.'‘; 

uiriteln< 'Tot.al enomw d^"’*?!^ i • utils sr<> estimated to be Detui 
een ' ' and '' ) ; 

eyit<line2'‘ 

end; 

putit< 10,12," NO INFORMATION PROCURED") 
end 
else 
bee in 

if bd - -too then 
besin 

t»utit< to, 12 . 'OTP tnable to breach enem^ counterintell leence D 

arrier^.*i 

exit< I ine2> 
eno; 

if Dd = too then 
besin 

p js nandom mod 200; ^ ?= rsndom mod 200; 
o ;= rda-H^db; oe ;= o-e; oe ;= o-tq; 

90toxM< 10,12); 

'uritelrK "Total -^nemv def*»nsiue utils are estimated to be betui 
een '' ,oe , ' and " ,o^ •» ; 

ex 1 t< } i ne2 ) 
end; 

etjtiu 10-12," NO INFOPHPTTON PROCURED") 
end 

end; ■!’l 3 n*!> 2 > 

PROCEDURE LU€3; 

Deem 
c I - 0 ; 

If Person = playersCl] ^h^=►n 
bee in 

if rrdo = -100 then 
beein 

»utit< 10,15, "CIP iinahli^ ^o crearh enemy counterintel 1 isence b 

arri.?r' i; 

evit.c line3) 
end; 

1 +' rrdo = t 00 th»»n 
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for i!= 1 to oo 

if < bs C i ] . stat-u-sss^ > snd < b< C i ] . do 1 •? to=M j then 
if< b<C n, «ort=^OP^ Ar < b^C i 3.*=ort=^09' > then 
c:=c+t i 

?otoxM< 10>15>; 

luri tel n< 'Reports inrlTr^t.e eneffiH rurr^^nt.ly fcmdirve ' »c»' of fen 

R 8<0 pnojert« •' ) ; 

ex 1 1< 1 \ ne3 "y 
enrl; 

p^Jtit< 10.15," HO INFOPHQTTOH PROCURED") 
end 
else 
be^in 

if or do = -100 then 
beein 

outitC 10, 15, "CIP unable to breach enens counterintei lieence 6 

arrier" >; 

*»x 1 1 ** 1 1 ne3 > 
end; 

if brdo » 100 then 
bee in 

for i : a I to ntwof <*-<sT en< do 

if <reCi3,etattje=2) and •: reC i 1 .del <»te=0) then 
ifXreCi l.-^orrs^OP" '» or i ]. eort=" 09" •> then 
c:=r*l; 

aotoxy< 10, 15>i 

mri tel n< "Reports indicate en^^ currently fundine ",c," offen 
Slue R&O project?^' >- 

exit< 1 ine3> 
end ; 

putit( 10,15," HO IMFOPHPTTON PROCURED" ) 
end 

end; Hjne3> 



PROCEDURE LIHE4; 
bee in 
c : - 0 ; 

It eemon = elayensCl] nhen 
Deoin 

if nrdd = -100 th'^n 
beein 

eutitX 10, 1R,"CTP unable bresch ener*iv counterintel 1 leence d 

arrier" '• : 

•»xit< 1 ine4 ) 
end; 

if rrdd = 100 then 
beam 

for : ; = 1 ^ n m.iMof •= v*ete*>ie do 

if < b^ C i 3 . atatu^-2 > ard •" bs C i 3 . de 1 et e=0 ) then 
if^ b^C 1 3. ^ort-'DP" ) OA •'baCi 3.sort='08" ) then 
c:=c-^l ; 

aotoxH< 1 0 , 1 R ) ; 

iiiri ? elm "Report e. md^n.^te eneos* ct^r^entlM fundine ",c," defen 
a I’.je »no j ec t " > ; 

ex 1 1 < 1 i ne4 ) 
end; 

i^utitc 10,lR," HO IHFORK^TTOH =’R0CURED" ) 
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b^in 

\f brrjd = -100 th*=^n 
be^in 

i.'n.3blp to breach enetnv* counterint^l 1 i^ence b 

amer' .»*• 

•?vit< 1 ine4> 
end; 

if brdd = t00 then 
bee in 

^*’or i:= 1 to rMf»tof'='-*ete^»>< do 

if ( r-5 C i 3 . -atatue^S '• and i r<-C 1 1 • de 1 ete»0 •• t hen 
1 f'' rsC 1 3 • ^nrt=' QQ' > or ^ reC i 3 • «.ort=' 08^ > then 
cz^'^X : 

eotoxv*< 10# 18')? 

i»»riteln< 'Rp^rt-e indicate enenv currently funding '*c*' defen 
'Slue project^'); 

ex 1 1< 1 1 np4 > 
end; 

P»jtita0#l3#' MO INFOPHQTTON PROOUREDO 
end 

end; <*line4’> 



bee in 

ciear^creen; 

eutit<26#3#'CURPEMT INTELlTPEHCF REPORTS*^); 
Ptjtit( 5 #8 #"ENEHV OFFEHSIOE FORCES INFORMOTION: " >; 
1 inel ; 

putit(5#n #'EH£MV DEFENSIiJE FORCES IHPORHQTION; ' 

1 ine2; 

putiT.i5#l4.^EN£HV QP^ENSI‘'E R^O INFnpHQTTnN: ' 

I ineS; 

Putiv,5#l7.'E.M£MV OEFEHSIME Pj».0 INFORHPTTQH: •' )? 

I 1 ne4 ; 

put 1 1< 27 #21 # ' < Prees RETURN to Cent i nijp >' ) : 
reao< e j 

end ; \ ?et i n>*o > 



Deem 

iflaer := false; 
repeat 

c lean screen; 

put ;t0.5# "SELECT INTELLT^-EHCE OPTTON- ' 

Put it< !3#3#'P,.. Rec p i ue Pr p« * i ou« I 'h Pure has ed I n te \ 1 1 eenr e I nf ormat i on > 

p^JtiTA 13# 1 1 # "9. Purchase Intel 1 7 «»rce^Counter:ntel 1 isence Information' 

®ut 1 1 ( 1 3 • 1 3 # C • • , Cane e i 1 ! nte 1 1 : «ppr e ^Counter i nte i 1 1 sene e Re'p»jests" > 

putit< 13# 14# ' '=’or ♦he Cu»^rent Vp^r'' 

pt»t 1 tv 1 3 # 1 6 # " 0 . . • Ou 1 1 ' ) i 
?otox*ti< 37 #5 ;reao< d > ; 
case d of 



' a" t 


Q" 


; ?et 1 nf m ? 


'b' # 


S" 


: bus info; 


C' 


C' 


: ridinfo; 


"s' . 




: ifUe : = 



otherMiee hPlp 
end; 

until It I as 

end # •* : nt p I e tar > 
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E6HENT PROCEDURE IHfTVR; 



annually. intelligence =^nrl expencJiture uar laoies. 

Coi<ie</tes projected total «.’yate(n« oeeratme costa Por uecor»^ine ‘r^ear. 
She lues undecided new R?i»0 tvs tens fmn pro*.. ;ous vear.^ and determines 
she I vine penalties. Decrements ne^t# budeet bv twice preu lous budset 
ouerrun. Intrx>duces random .draw to adj».*st expected budset and ft?5c0 
f'isures. > 
uar 

jj# i>e,uniform#deuiation r integer; 



FUNCTION MINI HUM : integer; 
oesin 

if a <= 300 then minimum := a 
else minimu.m := 300 
endi <!mintmt.im> 



PROCEDURE R IN I IRQ? 

• jar 

jj earlier : inteser; 

PROCEDURE wSSUME; 
oesin 

if rsC j 1 . statt^s ^ 2 thon 
bee in 

if rtC j 1, -sw^fRaO - 2 then 
besin 

rs C J ] . yr 3RaDc nar. : s C j 1 . vr 3R aOc os t -K 50*j j ; ; 

rrdseent mdspont r rsCJl.yrSRaOcost# 
redleft redlpft - rsC.il.yrSRaCcost 
end; 

if rsCJ].yrot"RaO = I then 
besin 

nsCj].yr3Ra0costr=rsCj], vr?RaOcost.-K 50ejj 
rrdsp^t :* rndseent r rsCJ 3, yrSRaDcost; 
redlpf t re-ii^ft - *^C j 3 . yr?RaOcost 
end 

end 

end; 

beam 

earlier year - l; 
for j := 1 to numofsystems do 
beam 

if ( rsC J 3 • yrftaOstarts < = earl i er > and ns C j 3 . status = 1 > then 
if rs C J 3 . de I ete = O thon 
beam 

rsCj 3. status :* 3; 
nsCj J.yrauai I :*s rsCj 3 . yrausi I ^ 1 
end; 

if < rsC J 3 . yrRaOstarts -earlier) ^nd ( rsCj 3 . status = 3> then 

if rs C J 3 • de I ete » 0 than 
beam 

r-s LJ 3 . yra»..*ai I C > 3 . yra».ai t r 1; 

if rsCj l.yrofPaO = 0 then rsCJ 3 , penalty := 0# 
if rsCj ] . yrofRaO = t then 
beam 

a := r^C J 1 • '-*r tP'^nr ; 

rsCj 3. penalty ;= (rtinimum 
end; 

if rs C .i 3 . yr of RaO = 2 then 
beam 

a : = rs C J 3 . yr 3RaDc os t ; 
rsCj 3 - p'^nal *y mmim^'m 
end 
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end; 

if •; r-s. C j ] . yrRaD<= ^ e=>n}i^r) 9nd •; rt C J ] . tL-3Uj^ = 2> then 

if rsCj]- delete = ^ th^n 
be«»in 

n*^C ; ] • ymfRaO ?- C j 1 . vrof R ?0 +1; 
if r^CJ], yr.^uax I = ^e^r then r^C.i 1 . -status := 
assuflfte 
•»nd 

end 

end; '‘'rinitrd> 



PROCEDURE 8INITRD; 
uar 

earlier : integer; 

PROCEDURE j:<SSUhE; 
besin 

if bsf.j ]• status * H thf>n 
beein 

if bs C J 3 . *r*mf RaO - 2 thi»n 
besin 

bsC J 3. '^r3Ra0co«t: =t?sC.» 1 . '-•r^Rancostx >; 
brdspent !- brdseent > bsCJ 1. yr.7Ra0cost; 
blule+’t biuleft - bsCJ 3, '^rTPaOcnst 
end; 

if bs C j 3 • yrof RaO = 1 then 
beam 

bsC j 3 • *Hr2RaD<‘o«t: =b^C.i 3 • vr2Ra0r»bSt-H > ; 

brdseent :* brdseent + bsC-.i 3 -yn2RaOcost; 
biuleft blule-^"t - n<LC J 3 . '-“^?Rancost 
end 

end 

end; 

seem 

earlier := year - t; 
for j ;= I to ntjmofssster^ do 
besin 

i f bsC J 3 . '.■4rRa0star'^ ^ ^ i c*»^ • ^rjd ^ bsC .» 3 • status = 1 > then 

if bs C j 1 . de I et e = then 
be^in 

bs C j 3 . sta tus : = 3 ; 
bsCj], vnauai 1 ;= b«C>» 3 - yra<»ai 1 > 1 
end; 

if ( bsC J l.vrRaOstart? e^rUer' and ^ bsCj 3 • status = 3) then 
if bsCJ 3, delete =? then 
Deem 

D-3 C J 1 • vrauai 1 ?" d«C » 3 . vr^^*ai 1 1; 

if bs C..i ]. '-*rof RaO = *'*'• then bsC 1 1 • penal V-< := k<; 

if DsC J J. '-‘rnfR^O = t ^h^n 
Deem 

^ : = b« C 1 3 . ■-•<r I P aOr ost ; 
bsCj 3 . penal ty := iomi«ouft> 
end; 

if bsCj 3-yrofRaO = 2 then 
Deem 

a := bsCj 3 . vn2Ra0cost ; 

DsC J 1 - P*=‘nal t != t^inimun 
end 
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•?nd; 

i f *■ bs C J ] . ‘^‘rRaOs t ^ = »? 1 1 *?r > and (. b'?. C j 3 . ar.a tus ~ 2 ) then 

if bsCJ 3 • delete = 9 then 
be^in 

bs C j 3 - vrof RaO • s b< C j 3 . yrot*R aO **• t ; 
if bsCJ 3 • yravai 1 = vear then be C j 1 , 'Status j=» y; 
assume 
end 

end 

end; <binitrdl'‘ 



PROCEDURE INITIMTEL; 
oesin 

if year = 1 then 
beam 

fro :» ‘it; fbc := 0: 
frd ;= 0; fbd := 0; 
frrdo >5; fbrdo :•* 9; 
frrdd := 0; fbrdd 0 
end; 

ro :=» fro; bo := fbo; 
rd := frd; bd ;= fbd; 
rrrlo :» frrdo; brdn := fhrdo; 
rrdd :» frrdd; brdd := fbrdd; 
fro :« fbo ?= 
frd 0; fbd := y; 
frrdo :a 0; fbrdo 
frn-^d ;= 0; fbrdd id 
ends ^init:ntel> 



beein 

1 f not ( year = 1 > th^ 
beein 

if ^ red left < 0> then redhudeetCy'^arl := redbudeetCyearjr^-sr^lef’t; 
if (bluleft < 0) then blubudeetCvearl :• blubudeetCy<»^r]+2'^iulef t; 
uniform := random mod U: 
de^Jiation ;= I50^uniform - 1090; 
redOudeetC year 3 :* redb».«deetCy<^3r3 > d^’Mation; 
bluoudeetCyear3 :* biubudeetCyear 1 > deviation 
end; 

red left : * rodbudeet C year 3 ; b 1 u I ef ’ t b 1 uo* 'd^et. C year 3 ; 

raeseent ^soaeeeent := 0; 
ri spent := 0;oiseent := 0; 
rrdseent := 0;brdseent 0; 
for 1 := 1 to numof systems do 
Deem 

reCi 3.unitb*jy r<Ci 1. eurl imit j 
r sC 1 3 • tua 1 : = rs C 1 3 . i nuentory ; 

DsC 1 3 - um tbuy := osC 1 3.eurl imir ; 

DSii3.tuai := bsC 1 1 • inventory; 

1 f ( rsC 1 3 . in^^entory O > and '' r^ C 1 1 , delete = 0 > then 
red I eft := red left - < rsCi 3 . i nuentnry«-rsC i 3 . oecost 
if ^ bsCi 3 . inventory >0'' and '' bsT i 3 . del*»te = d > then 
b iu i et't : = b 1 u i eft - < bs C 1 3 . i nuentcryiJds C : 3 . cet ost > 

end; 

jj;= random mod 4; 
rmitrd; binitrd; 
initintei 

end; fimtyr> 
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■: Tht i^OLLOHINC-t ‘SEGMEHTFQ =^c^OCEDUPES wPF (“OMPTLED M^O INSERTED IN THE MHIN 
PPOGRHM WS EHTCH IB USING THE COHPILEP 'INCLUDE" OPTION^ DUE TO PILE 
SIZE CONSTRQINTS. > 



SE&H6HT PROCEDURE PRINT <p<?r-5on : 2 m.rva •»; 

<ICall'?<j OPtionalW. Prints i?nd-cf-v<»af^ dPCi'Sion Cor pla'=<‘?r«,> 

•-•ar 

1 # leCL#a<»SP*?nt . Tspprt^rd^pont. • mr p«pr;<=v«o»jc3»t. ; ^rray Cl. -203 of 

; 

a : onar; 

PROCEDURE TURNEHO; 
v>ar 



1 : 
basin 
roa 


intasar; 
•= 0; boa 


:= 0; 




rob 


0; boo 


5^ 0; 




rda 


;=? 0; bda 


:= 0; 




rdb 


:= 0; bdb 


0; 




for 


1 := 1 fo 


numofssstams 


do 


basin 

If ‘-rscn. 


sort 3 'HP'*) 


3nd 



roa roa + r-sCl 3 . ut.i letr-l ; 
i f ( r-? C 1 3 • ?crt. “ ' ^9' r 1 ■> , dP i t hpn 

rob := rob + r<C 1 3 , uti laT.T.l ; 

If r^C 1 3 . ^ort. = ' 0P'> aro <r*=Cn.»1'9'lpr '? ” O ■> fhpn 
rda := rda + rsCl 3 . uf i I'sr.t.l ; 

If < rs C 1 3 . sort. « ' DB' > 5nd r< Cl 1 . Op 1 et.*? = O ' t hpn 

rob : - rob r-a C 1 3 . ut 1 1 sf r I ; 

1 f 'v bs C 1 3 • sort- - ■ OP ' ’■* =ind ( h< C 1 1 , ho 1 »?t a = y !> t hpr 

boa := boa bsC 1 ] . ut i ; 

if <bsC13.sorr. = '09' ’’ snd h'^C 1 ”1 . p = P? than 
bob : » bob + d< C 1 3 . ut 1 1 sr.t, i ,; 
if •: bsC 1 3 • sor^ = ' DP' > and •’ bsCl 3 . a*?lp^ «? = P ' th^n 
bda ; ^ bda r os Cl 3 , ut, 1 1 sft. I ; 

If CbsC13.scrt. = ^DB' * 3rd '' b« C 1 1 . d<?l at »? =0!'’ thi»r 

bob := bob bsC 1 3. »jt i 

and 

and i <’ t-fjr r«rd '} 

PROCEOUPE OUTPUT ; 

PROCEDURE TITLE; 
basin 

iMrir.Plri< r>' ' ''SJun taln< r , ^ » I 7 , ' 

'•♦rat e ln< 7^ ' ' '>;hirit aln< ' ' ';>«»rit<»ln< z . )? 



"•ri telnv z^ ' 
f'<riT..;?in^ z » ' 
'"ri t alm Z / ' 
'•‘n T,p In* z / ^ 

'"ri T..P Z/ ' 
"iriT^ln< z* 

"'rit.,?ln< z^ ' 
and; 



4NNMPL DECISION SUHHWKV j' -' 

I .' 

■-“EPR: 



-L ^VER: ' ^ pardon j 



.'r*a 3 



' ;iifr' I f a ^ nC z * >’'r ^ t p 1 n*; ' 

'■ f I r I .S’ *:■ 



PRulEDURE LlSTl>;n : irtt.poor>; 
ba^i n 

u«r 1 ta I n< z / ' N 3<na' T • r ' > ; V': L n ] , r 3»na ^ ^ = ss C n } . = or t- ^ ' 
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>'tr 1 I rr 3 # ' I or * j Col. \n*. 'i^n tor^t* • > 

Hint *?ln'; 3 #^ o»'»rit Ton ro-^l.: ^ ^'jysCn] . opcos^ji' 

3 y s^Ptn aC pij 1 -s 1 1 ^ 1 on c 0 * 5 1 : ' * f n 1 . .aPC o< t > ; 

writ.ein'' 3 /' ijtil »'al‘;p? ' . rv-«f.n},ijt..i is, ' Purchase rat 

•?: •* #' 5 '^s*Cn].PurIi(ioit 

'Mntaln«' 3 >' Tot.al op^r^tion *:o 5 r.s: ' jSVsCn 3 . OPcostTTl 

T Ota 1 util ua 1 UP : # s'sis Tn ] . ur. 1 1 s TTL ? 

HiritPln< ^ ;ii«n tpln< ^ ■' ) 
pnO# <listl> 



PROCEDURE LI3T2<n ; tnt.pspr^s 



uar 

10 # mm : intpppr; 

bPPin 

iuritein< 3#' HampCTvj^o >• .ss»sCn] . namp# '■ #avsCn] . sort#' .)' ># 

lOrti • = sys C n ] . ‘^mf RaO # 

iK =s«.Cn3 .*dr.^RaOco<t>0 then m;=3 

Pi’:P if ss^Cn}. *-»r2RaOcost>0 then io:=2 
*»lrp m!=l; 

i"ritpln<3#' R5?<0 crmpietpd: '#»om#' Vr^ of rp«u 

ired: ‘#io*; 



"iriteln< 3 #' 

: ' #S’;rfsCn 3 .'sir 2 RaOcost #' 
mri teln< 3 # ' 

3ms ten acquisition cost: 
|•^rlteln< 3 #' 



a: Vrl: ' n] . yrlRaOcost# ' Vr 2 

Vr 3 : ' # SM« r n 1 . ’-*r TRaOc o^t • ; 

SMSt.pm cppratjon i:o<t: ' #sysCn3 . opcost#' 

' *«‘^sCn 3 . aprost ); 

•Jtil valiip? ' .';Msr.n3 . 1 iti Is#' Purchase rat 



e: ' #sysCn 3 .Ptirl imit ); 

mriteln<3#' ' '»5iuritpln< 3 # ' '> 
end# Clist2# 



PROCEDURE Il^U; 
uar 

n#count : intpq»r; 

DPSin 

|-•rltpin•;3#' I. 3V"^TEMR n.’RPPMTLy IN INUENTORV:' -*; 

I'lriteln^ 3 # ' 
c ount : ; 

for n:= l to numofsystems do 
bpsin 

1 y \ sys C n3 . 1 m'ent orsi>0 !> ana C «ys Cn 3 . cel Pte=0 ''then 
OPS in 

liT'tlc n,s* 
ccunt:= count ^ 1 
end 

end; 

:f countw then 
besin 

Hin* pln< 3 # ' ■>; 

Hiri^pln'. ' '’imriteln*: 3 # ' • 

end 

end # ** I n* • *> 



PfiOCEDURE not: HU; 
yar 

f^.count. : intpwr; 

3 ^in 

r, ' II. iVPTPHS uUPTI.fiRLE 3UT NOT CURRENTLY IN INUENTORV;^ 
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count.:=0; 

for 1 to rumof systems oo 
besin 

1 f < 5 ¥< C n 1 , 1 nvent.crv=*^ > 3rd < -S'-*? C n 3 . d«?l )then 

if sysCr3,yr3vail<=ve^r th^n 

1 istKn); 
count:= count + 1 
•?nd 

»?ndi 

if <:ount=0 th<?n 
De^in 

Mirit-^lrK 3#.^ NONE' 3; 

'uriteln^' 3 ^' ' >;iMriteln< r> ' ^ 
end 

endi CnotinM> 



PROCSDUftE TOTS*; 
oe^in 

•.irireln<3,-' TTI. TOTOL htIL POINTS ^iCCUWD^ITEO: ' ) 
iuriteln< 3 j^ 

I f «.on=s^ I a^er-? C 1 1 th<>n 



be^in 

iuritein< z*' 

|•»rlteln< z#*' 
uiriteln< z>' 
write in< z> ' 
end 
else 
oe'9in 

uiriteln< z*' 

'Mriteln< z^' 
mri r.eln< z* ' 

'Mriteln< z#' 
end; 

writeln^. Z#' •' '••MrTt.eln< z»' 
end; 



System 
■^M 5 t em 
Ss^tem 



■?’-‘ 5 ten 

S^^stem 



HQ* 

type OB: 
t'^pe Oft: 
type OB: 



t OQ; 

type OB: 
t no • 
type 00 : 



' >roa 
' ^ rob ) ; 
' >rda .); 
' #rdb> 



'>boa>; 
' #ooh ); 
^ » bda y ; 
' >odb / 



ttots> 



PftCCEDURE CURRO; 
uar 

recount : inteeer; 
bee in 

writelmz#^ lU, ONGOING ?,m PRO lECTS: ' > ; 
'oritelm z • 

•rount: 

for n:= 1 to nupofsysteme do 
bee in 

if '■ sysCn] • status-S ^nd in] . del eti?=H V..hen 
if sysCn3. yrRaOetarts<=vear then 
^ Deem 

1 1 szZ< n ; i 
count:= count I 
end 

end; 

If count=<^ then 
beein 

ujr 1 1 e I n< z # ' r ^ONE ' '• ; 

i*ir 1 te I n< z ^ ; «Mr 1 1 e I n<. z # ' ' • 
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•rnd 






PftuCEDUftE SHUftO; 
var 

n#count : inta^er; 
beam 

uirit-elmr^' U. SHEU'ED R^O PPn jpctS: " 
count: =*cf; 

**'or n:= \ to numof systems oo 
beam 

if i*^*aCn3 . ir..9tua“! ’ or f . 5tatua=? > then 

if < sysCnl . 'r>rRaO<tart «?«r=ve^r ) ^r<j < ay«Cn] .deiet<»=*^ > then 
beam 

1 1 sttf!^ n ^ 5 
count: = count \ 
end 

endi 

if count“0 then 
beam 

Kir 1 te I n< r ^ Ni?HE •' > ; 

"iriteln<rj' >;inriteln< Tj 
end 

end# > ^h«*rrt> 



PROCEDURE 5UO0; 

•var 

(0 : 1 nteaer ; 

PROCEDURE COSTS; 
uar 

iJ : inteaer; 
oeain 

for ij \ to nurwof?S:*«t ema *ir 
ceam 

: f ev:*aC 1 j I . opro«.r.tr. 1 '• li •• f i .i 3 . B<.*ai 1 < = 'T-ear .' men 

if asaC Is* 1 .delete = y then 
beam 

Hir 1 1 e 1 n^ r p 5rne^, t vee • : # eva C i j 3 . name # ^ 

< #saaCij3 - mrt # ' "»' >; 

iMrit»»ln(rj' *^otal oeeratina coat: s 

' # s'^a C : j 3 . oer oattt 1 • 

end 

end 

end; fcnet*!’* 



beam 

Hiri tein( : 
iMr 1 te I n( : 
mri te Im : 
■'iritelm : 

, #aeaeent 

"•ri teln< : 
, *S'‘ j lapent >; 

iiiri telnc : 
, .S' prdspent • ; 

iMri tein< : 



‘Jf. rHO-r.c-wpQR PUDi-ET TMPriRHQTTON' ••; 

T.--T Qjonfta) !4Hn»*f9nce: s'" jeaaoudaetC 'riear 3 >; 

QfrtOi’nr 'spirit . m =«c^iJi ^ i tlon« 

'J^O'.'nT Tpent ’"n xntelliaence 

brttotjt^T R ^nd D 

»Ver=iMn«» cQiT.- ?’=*aTem c thoae in inuentora 
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COStSi 

lo : v«?ar t ; 

uiri tj?ln< z^' 

«uriti?ln( z* ' 
budget C»nJ ) 

•?nd; 

De'?in 
title; 
irrv; 
rtotinv; 
tots ; 
curMO; 
shuRO; 
budg 

end; ^ output;: 

Deem 

turnend; 

if person = plavere-Cll then 
bee in 

seeoudeet := n^dbu»lpet;lef*t := ^pdleft;sy< t- re; 
a^pepent := ra^epent;! spent ri<pent;rdspent := rrdspent 

end 
else 
Deem 

sy sDudeet ; = b 1 ubudeet. ; \ t. • = b U.H .»♦' t. ; su « ? = bs ; 

aespent := baespent;ispent. := bi spent ;rdsppnt. •= brdspent 
end; 

clearscreen; 

?otoxv<. 13>8 > ; 

turiteln( ^DECISIONS 8V '.Person,' FOR - PRE COMPLETED- " 

if NOT <prtr='3'> then 
oeein 

put 1 1< 15.18."' Press "9^ ' oO^ am ®r : ntcut of year ' ' = dec : s i ons ; 
putiu 15. 12,' nr''* 

end; 

Put it< 22, '''Press RETURN to continue same »laH>' ); 
readC n 'ji 

if <d='p' > or <d=^P''’» then 
oeein 
outP»Jt ; 
putit^. M, 18 ,' 

' j* 

»utlt(. 14,12,' 

; 

reacr> d > 
end 

end; pr"»nt> 



Total (Y>rmo« rejuaimne; S'.left>; 
Expected defensp budee^- for next year; s 

^’hi tdo;> 



SEGMENT PROCEDURE VEP.REN0; 

CSstablishes annual eame »»iinne*-, Corap»Jte« the erooaDilitv of fnar and 
either displays aduicor*:^ to the 'joPire for his decision, or >aafes a 
random i^aw to compare aeainst tne cn(T>pi.it .»»3 p^^oaoility decide 

niar p^.»ent occurrence. Creates data file on rorn^o diskette if 
slavers decide to suit and resume same at. =, later time. > 
uar 



.svs 
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r»?d^blue 






PROCEDURE WINNER; 

•var 

be«-t ; strin-aj i^l#r2^ol»b2 : intpwr; a : ch^r; 



PROCEDURE DECLARE# 
be^in 

cl i?ar^creen; 
p'jtitX 15»3»' 




PUt^lTA 15#4, 1 
putiu I5#5# ' J 


1 ' 

1 ' ># 


p^jtiu 15#S# - 1 
putiu 15#?#' 1 
f»»jt.it( 15 #3#^ 1 
put.it< t5#9#'' 1 
PUT.lt< 15# 10#'' 1 
?otoxy< 1 5 > 1 4 ) ;iuri t.*> 1 rK ' 1 
putit< 15# 15#'’ 1 
put>it< 15.16. ) 
Puti^C 15# 17# ' 1 


1 ' >i 

bS 0 PPS'HLT op b 'TPLLV OF l' ># 

OPERQTTOHfiL ‘^GRCFS IJTTLI7V ! 

POINTS... )'># 

\ ' >p 

FOR bpHE VEPR '#'-*aar#'. ' )iputit<65#14#' 1 ' ># 

i' ;# 

1 ' .) ; 


and# 


•:* dac ^ j?ra 


PROCEDURE TIEi 
D«?a»in 

PUtiU 15# 11#' ! 
putiu 15# 12#' 1 
putitv 15#13 #' \ 
and; 


i ' ># 
1 > ; 

...0 TIE IS DECLPREO )'v 

Ctia*^ 


PROCEDURE WHO; 
ba-Pin 

30^oxy< 15# 11 ^ 1 


' > ba« t ^ iptjt i tc 65 # 1 1 # ' 1 ' "^ # 


potiTX 1 5# J 2# ' 1 
Put IV, 15# 13# ^ I 
and# 


... IS C'ECLwPED WINNER 1 ' • 

<* itihn > 


3a*9in 

nl ;= r'oa - bd9# 
r2 ;= rob - bdb# 
r^?d ;= rl a r'2; 


if ^ 1< 0 ♦ hen r ! ; ^ ; 
if r2<0 than r2;=0; 


bl boa - rda# 
o2 := boo - mb; 
blue := bl b2; 
oast := 'nona' ; 


if b 1 < 0 than b l : =0 ; 
if o2<0 than b2:^3; 



if r^d<blu<» then D(?sr,:=»laMpr'?C21 * 
if rod>blu«? ^hen v-ter^f ] 1 i 

nen I are ; 

I r' nnne^' then 

•?isa i«mo; 

j 1. 1 tx 27 >20#' < Pro< 5 RETURN r o Corx. i nu*? > " • ; 



raad< d > 
and# 

PROCEDURE MGVBEWwR; 
'.■ar 


<' utinner^y 



namp : -ztnin^i =^# fmai • 1 ,,3on<?»inn5cha»^; 

#'fm# la#dlf f : 121 > 
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r'^!OCEOURE LOGOi 

0 iS” 9 in 

clearscr^^n; 

put:u 13^4, >; 



PutiU 13#5#^4 


UM MM 


p 


PRRRRPR 


4" >; 


putiu 13#b#^^ 


M MM 


MQM 


RR RPR 


); 


putiU 13# 7# ^4 


MM M MM 


PP PP 


PRRPR.RR 


>; 


putit( 13#3#"'* 


MM M M MM 


PP M PP 


RR RR 


4' •); 


putit( 13 . 3 # ^4 


MM MM 


PP PP 


RR RR 


4' )i 


putiu 13#10#-'^ 


M M 


PP PP 


RR RR 


4" ); 


putitC 13# 11 # '^ 








4 ' >; 


put 1 1 < 1 3 # 1 2 # •' *4 








4^ .) 


end; 


a 


OPO> 







PROCEDURE WPR; 



•Jar 

d : char; in : int.p-qpr; 

bPiJin 
lc- 9 o; 



irt : = ’=‘ear 1 ; 

1 f 5.ma 1 1 pr=rt?ct thpn r pdb»jdpp^. C -» ] : C m 3 - 1 0G0 

>? I sp b 1 ubudwt Cin J : =b 1 ubud-^et, C m 3 - 1 000 ; 
putit.c 13# 13 # ...ha«. DP^r rs a rp^ult of thP 4^ >; 

PLTtitC 13# 14#'^ dispariv^ bptwpon plavpr cpprar^ional 

putit( 13# 15# '4 forrp «.trpr9t,h«. 

p»jt.it,< IS#!^#^** >* 

aotoxvK 13# 17 >; 

iMriteln< P< a rp^’jlt of the war #nafne );p*jtit< G5#17#^'*'*^ ># 
p»-Ttit( 13# IR # ^4 ha^ had next, bud^pT. alaahpd by 4 ^); 

putit< 13#19#'^ ri0*?0. 4'); 

Put 1 tC 26 #21 # '<Prp^a R6T».‘PN to Com inup*'" ■; 
rpaa< d; 



pnd# 



'nar > 



PROCEDURE UMPLOGO; 
oppin 

c l*?ar<crppn# 

Put It*' 30#5# >i 

putit<30#6#^^^4-r UMPIRE 

Put 1 U 30 # 7 ^ ^ ^ * ■ > ■■ • ■<■ » »» T < » * < ■ y > y < » • ■ * » ■>; 

Put 1 1( 10# 15# 'Do you '♦ash to terminate thp aamp <V or H >^^># 
?otovy< 64,15 "•# 
rpaa< done .« 

and; ^umplnoo> 



PROCEDURE uaRHOTE; 



Ml : intpppr; 



b€-y i n 

puti tt 15# 15# ' 



I j j 



char; 



: i i : = 100 - t rune*' di f f 
aotoxyv 1 7 # 1 5 > ; 

furiteim^Th^ probaoili^.y of >-*ar p*s^ti mated to be ' m n # '!<• ' ># 

putit<22#l7,'0o you wish a war to ensue • or Nv:-' >; 

?OtO) 0 :K 00 # 1 7 > ; 
read< jj.j > ; 

:f '-jjj='y''^ or ^hp^ 

diff :=0 

elrp diff:=I00 
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er\Oi 






PROCEDUfte PUTfiLLi 

PROCEDURE PUTOHE,* 

Mar 

: fil<? of 

oe^in 

rewrite^ 1 le » ' TEMPO: tempo I . data^ ' ; 

iMith templfilp'^ oo 
oeoin 

Vt<earr=»v<par ;tr90l-»^'t: =rpr}] e-f t.;t p+>.: solule+'t 

trapsppnt : =rapsppnt i tbap<ppnt> : pent ; 

tr 1 spent : =r i spent ; r b i sp«»nt. : =Di spent ; 
trrdspents ssrrdspent ;tbrd« pent ; =Drds pent i 
tnumof systems: ==numof systems ; 
troa: *roai trob: =rob i trda : =rtla ; trdb : =rcb i 
tooa: =boaitbob: =bob;tbda: =nr»^; tbdb? =bdb; 
tro;=ro;trd:=rd;trrdo: =rrdo;trrdd: =rrda ; 
tf ro: =f ro ; tf rd: =f ; tf rr^ : =f rrdo ; tf rrdd: rrdd 

tbo: =bo;tbd:^d;tbrdo: =brdo stbrod: =brdd; 
tf bo: =fbo; tfbd: -fbd;tfbrdo: =fbrdo ; tf brod: =fbrdd 
tiaarcont: ^>iarcont ; tprtr: =^tr ; 
tPl ayers : ^ 1 asers ; tredCMjdeet : =redbudwt ; 
tb 1 ubodset : =b 1 ubudeet 
end; 

put< templf i le>; 
c lose< templf I le# lock > 
end; <putone> 

PROCEDURE PLITTWO; 

Mar 

temp2file : file of «’ys terns; 
bee in 

re*»«rite< templf 1 1 ^ ^TFHPO: tempos - data^ 
temp5:f i 1 e^ : = ns ; 
p«j tc temp2f i le ); 
temp'^file-^ := bs; 
p«ju templf 1 le 
close*:. temp.5:f i le^ lock > 
end; iPuttmo> 



Deem 

eutone; 

pfJttliiO 

end; 



D*»ein 

^ := nsnoom imOO 101; 
name : = p I ayers Cl]; 
mailer := npcf; 
lareer Dlue; 
if Dlue<red then 
bee in 

name : = » I avers C 2 ] ; 
smaller ;= blue; 

1 arser : = r^ri 
enpj; 

m: =smal ler; la: ^lareer ; 



89 



diff := OIU 1^; 

tjinRlo?o; 

if < done*'^' ■> or <don«*'V' > r.hen 
be^in 

clear«.cr<^?r>; 

1 9 j 1 0 ) s 

'»'rxt.j?in^ 'Do vo».» fi»T<=h to r>»«ijof)*? p? from thi<=. point.^ 

'?ctoxv< 18#11 -'i 

iHrir*?'; ' 3 lat*?r time * V or N'>; ' ■»; 

read< mn ,• ; 

if > nr ^ irtn«' '-»' *> then ; 

jrta 1 nf I ae : rue ; 
exiu vearend) 
end 
else 

loa 1 nf 1 ae : a 1 se > 

if ( iiiarcont.=''‘^^ or i<farcont*' V' ) then 
'»«arnote; 

if '^l>dxff then u.»ar 

end; -:'maybewar> 



beam 
lu inner; 
ma'=^Cie»uar 

endi C’z^earer^d}’ 
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-^uiT cr»» t riMTK»i'5 cccv^pvjTcn ^oor-cpnoc’c '"OC '-‘Puoti tp r>»o TKit^roTcn tk| tuc mQTM 
PROGROh'pS BPTCH 2 USING THE COMPILER ^INCLUDE" OPTION, DUE TQ FILE 
SIZE CONSTRPINTS,> 



SEGMENT PROCEDURE UMPIRE; 

\ PI lows same umeire to alter, delete pr oysters to same play; 

PI so permits umeirM? to alter plaver budset t-'isures and probaoxlity 
of Niar. } 

PROCEDURE WRITESVS< J : inte<*er ); 



PROCEDURE PPRTSi 



PROCEDURE PPRTl; 



PROCEDURE PPRTl PUX; 

besin 

'Mriteln< ' D 

yrot RaO>; 

»uriteln< c 

■strlRaucost >; 

luritelnC ' P 

■=*r2:Ra0cost >; 

'‘*riteln<" G 

yrSRaOcost > ; 

writeln< ' H 

. • . ^ ,rsCJ ]. yraoai 1 ) 
end; 



Vrs P.W cornel ®-t.ed at same start. . • • ,rsCj 1. 



i^irst P?0 y«^ar cost; 5',rsCj3. 

Second year co<t: S'',rsCj]. 

^hi rd Rf.O *-^ar cost;....... 



Earliest, '^ear -auai ladle < atXer R and 0); 



besin 

'»»riteln< ^ 
iiriteln< ' 

It* ^rsCj].=.ort 
"‘ritein<’ '' 

1 f V rs C j ] . sort 
iMrlte ln< ^ 

If r-sC j ] . sort 
njriteln< ' 
if <rsCj].aort 
'oriteln< ' 
;'»r:teln< ^ 

. ' ,rsC j ] . yrRaOstarta ) ; 
®artlaux 
end; 



SVSTSH ',J); 

P Name: ' ,rsf J 1 - name ) teln; 

'Tip'' ■> or ^n^Cjl.ccrt = 'oaM then 

8 Ty^e; 0ffpnsi"e System Heaecn Type P' •; 

' 00 ^ ■> or <!’ rsC » 1 . -^cnt = ^ 00 ^) ^hen 

3 jyre? Offen^n'P System Weapon Type B' 

■'DP' > or <rsCj].iort = 'da' ) then 

8 Type; Defensiue System Weapon Type P' >; 

'OB'' > or '' C j ] , sor^ = 'Ob'; then 

3 Type; Oefpnsrv.’e System Weapon Type 3'' >; 

C l^ir^t year can start; 



i part 1 > 



PROCEDURE PPRT2; 
oesin 

iiiritelm' I 

. - ^r'sCj]. in^.*entory 

"‘riteim ' J 

S' ,rsC j 3 .POcost v; 

»'«r:teim ' K 

S' ,rsCJ].OPcost ); 

write im ' L 

. ■ ,rsCj ] .uti Is > ; 

!’<riteln< ' M 

. ' ,rsCvi ] . purl imi t );mriteln 
end; 



i.«nit<^ in in*'entory '' at same atart;: 

Qr-^.n -s.i tion cost, veer unit •; 

Opdr-^t ins co«t < ®-er unit.); 

Uaiue in utils ''per unit;; 

Maximum annual Purchase rate: 

\ part2 



Desin 
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<part^> 



Parti ; Part 2 
end; 



be^in 

clearacreen; 

parts 

end ; \ mr 1 1 es vs *:• 



PROCEDURE PR I HTSV3; 

».'ar 

r : char;f : intes»er; 
PROCEDURE PGRTl; 



PROCEDURE PQRTlfiUX; 
De^in 

ufritpln( z^' 

rof RaO > ; 

fiir 1 tp IrKz^' 

rlRaOcost > ; 

»nriteln< r# ' 

niR^iOcost 

"iri teln< z*' 

n3RaOcost. >; 

'Mr 1 1 p 1 n< " 

. . ' #rsCf ] . vrauai 1 > 
end; 



Vrs R^J;D corrtpietPd at same start. >rsCf] .v 



Pirst. Rj^O '-'Par cost: S'^^rsCfl.v 

‘=^pcond RJf^O ‘-‘par cost;..,., s^^rsCfl.v 

Third RJ'<D cost: 5"'>rsCf],v 



Earlipst vear a*.'.ailaolp (after R ana 0>: 

p 1 a*j'^ ^ 



besin 

(••riteln^ z*' 
'tiriteln< r# 

If CrsCfl.^ort 
luriteln*' z»' 
if CrsCfl.sort 
>i/nteln< z*' 
if rsCf 1 . sort 
iiiriteln< r# ' 
if <rsCf].sort. 

Mriteln< 
'uriteln( z*' 

'■ #rs C f ] . vrRaOstarts > ; 
partlaux 
•»nd; 

PROCEDURE PmRT2; 
oesin 

'•♦ritelm 

» rs C f 1 , 1 nwentorv > ; 



9/STEH '.f>; 

Mpkip: '' .r^Cf ] .namp > ; 

r^r ^'1 . ^nnt - ''oa" ••hen 

Typp! Offers i*.'p '^vstPi^ Weapon Tvpp W'' >; 

'09' or <;or^ = 'ob' ) then 

Tvpp: .... , Offend I'.'p '^vstp^^ We.apon Tvpp B'’ <•; 
''HO' ■> or <n<Cf].'»ort “ 'da' > then 

Tvppt Defensive Svsten Wp^eon Tvpe W' '); 

'DP') or »VsCf].-ort = 'db' ) then 

Tvpe: Oef «»ns i '->'e Weapon Tvpe 9' 

Pirst vear RJ^D can start: 



'* p art 1 > 



l’nit= in in\;pn^crv < at ?ame start): 



'tini tel n< = i» »on o^'^t unit): 

' .pnsCf 1. Wwirost. ■); 

i"r 1 te 1 n^v z^ ' Orer at j rr? oo*^t ^ »er unit): -5 

• >rsCf 1 , OPcost ); 



'•'riteln<z#' ^‘alue in ntiH (per unit):.... 

' #rsCfl.uti Is); 

'.'•r iteln< ' Mavimu^ annugl p»jr^*n.9se r-ate: 

' #rsCf l.purl 10 ) 1 1 ;;iHriteln; 

if rsCfl. delete = 99 then 
be^in 

"•ritelnC 



i'«r 1 r.i»ln^, z»' 
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I 



"iriteln< z 



-VsTEH Hm:? seen DELETED ?ROM THE GftHE 



i'*r 1 te 1 z* " ^ i ■ < •< , » . > : > .» > ». >■ * x x x x x < a : * : «» » » 

.> 

end; 

i»ir7t^ln<z>^ ^ >;writ eln< z> ' ' > ;inrit n< z> ' 
end; <>.=irt2> 

be<»in 

cleer«creen; 

ir ’::»ou desire e herd cop*-* ail ^ust^ms to be used' .); 
*»utit< 15> 1 1 in the se»»7e el. as, enter +'nr printout* other^uise'’ ); 

puti t< 15* 12* ' pre^s PETURN to •^^it oacK' to taenu. Be ad’*>isec that' ); 
putit< 15*13* ' printout uiill take 5 to onns, and t7»as not be' .*; 

Put 1 1< 1 5* 1 4 , ' 1 nter*^vtpted. ' > * 

react r )i 

if f.r = 'p' ' or vr = '9' > then 
for f := I to nunofsvstems do 
Deem 

parti ; part 2 
end 

end ; t pr i nt s vs- > 

PROCECURE PRTCHOICE* 

De^in 

•: learscn»en* 

P^Jtlt< 28*1 *' •.; 

putit<28*2*'^ IJHPIRE INSTRUCTIONS ***' ); 

PutiU 28*3*' v ^»'»'»- * »' * *»»^* < - **^ ' ^^ * * * » *^* *» ^ 
ptjt 1 tc 3 1 * 7 * ' 4 Pr i nter Status ^ ' •' ; 

PUtitC 10*10*'Enter the number corresponding to current printer status :' 

puti t< 14,13 * ' I . . -RS232 UNIT Attached and confie».»red to receiue data' ); 
putitt 14.15*'2...i2PPLE SIl.ENTVPE UNIT attached' .•; 

putit< 14* I7t'3. . .Printer either not cnnne»*^ed or not of option tvpe' ); 
aotox'rK 70*10 ); 
r ead( prtr j * 
case prtr of 

' 1 ' : reuir I te < z*' . RS232' ) ; 

' 2' : retar i te < z * ' . 3 1 LENTVPE ' 
end 

end * !* »rt r rn 1 c e > 

PROCEDURE 3R0HSE; 
uar 

1 ! inteeer ?choice ; ch.ar ;cherj<'f l^a-a • onnip^n; 



PROCEDURE DELETE; 

'..•ar 

•j : imeeer ; puitf lae : noolean;d : char; 

Dee 1 n 

for j := 1 to nunof sysT* ems do 
bee in 

^itflae := *‘al«e; 
repeat 

»i»r 1 tesvst j ; 

putitt5*l7* Ent'S'r on*> ot‘ thp ^^ulONIW options:':*; 

PutitC 5. 19*'P. . . OeleT’'^ di«plaeed ^'-•«ten anc advance paee' '* 
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Put 1 tx 5 • ^ 0 # ' 9 • . , .Q'lu ? p 3«p »»» t t ho*,»t > 1 e I Pte in^ d i ^ p 1 



putTU5#f::l »'C. , .Quit n^'‘ 

rpad< d>; 

C 3 S^ <1 nf 

: b»?' 9 in 

(^•r r.j ] , c 2 «?lPt..» :*= 

CJ ] . 3 ua i I : = 999 ; 

^f.n T.ft ::)-0 ; ss r.rUP 

and; 



: puitfla^ :- r.rt.h»; 
: pKitCdplatp'>? 
oth^ntuse hpip 
end 

until Pt*itfl^ 
end 



end; 



Cdpiete;- 



PROCEDURE CHECKRfiOc! J : integer); 

'..'3r 

should : inteper;p : 'than; 

begin 
k := 0; 

if rgCj]. vrlRaOco^r. > Ci then k := 1; 

if rgCj].yr2Ra0cogt > 0 then k 2; 

if ngCjl. yr^PaOcogt 0 thpn k ;= "; 

if rg£j ] . *:*rRaOstants > 9 then 
be^in 

should := r^C.jl.ynPaO^t.art.s 4- k; 

if not (should = nsC j l.vrauat l and ^ rsC j I . dele^.e =0) then 
begin 

putitC \,\?," 

' >; 

putitc 1 , 13» '■ 

✓ **i « 

• P 

p»jtit< 1 # 13» 

' >; 

putitt 1 

" ); 

putiu U21 j ^ 

' ; 

?oto vv<. 5 > 1 ^ ? 

''•ri te I n< ' Th^r^ t« incnr>«itt anrv to voun Pk:0 panametens. Vou 

r earliest" m 

?otov'=«.' *5 ► I P ' ? 

'*»rit.eln< '•-•r r»nt 3llo*»» for ’=*rs of P;i<D begi 

nning in vr *" »rsC j ] . Mr®aOstart?. . ' . 

®uti T/, 1 7 ' Pr®’« to ror’^o^^ parameters. *» 

npao( p ' ; 

3 a := t‘ 3 )'S.» 

end 

end 

end; ’chp^-kPaOl^ 

PROCEDURE wLTER; 
uar 

j : 1 nt eeer ;d : -: nar ? <au ’ t f i a*® ! ton I e an ; 



PROCEDURE PCiRdMETER ; 
'.‘ar 
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n»hich : cl^-^r;num 



1 ; nain^ ; =.r 1 rv? ? 



PROCEDURE H«^veE3; 

De^in 

cas*? '.uhich of 

18 >; 

' Ent p'f* 1 1 1 Of^ co5t» p<?r fjnit.: S'' )# 

r»ad 1 n< mjm > s 
C .» 1 . a-PCO<t. T = 

•?nd; 

'K' ,'k' : b»>5»in 

potox'^5#l8>P 

ijtrit.p*' »:a<t per unit; S' ); 

readlnC rum ) ; 

re C J 3 . ORC O^ t ; = n» Mn ; 

re C J ] . oPCO<r r.r. 1 ; = r-® C-J 3 • OPCost^reC j 3 . im^entory 
Prd* 

: beam 

pot.rx/su 5 j 13 >; 

'•»rite< 'Enter util ualue per unit: ^ >i 
readln< ntjn ) ; 
reCJ3.utils num; 

'^eC .i 1. ut7 Isttl r'eCJ3.uti inuentorv 



era; 

'M' .'in' : beein 

30toxy<5#l8>; 

i«'rite< 'Entpr inaxiiwjm annual p^jrchase rate: ' >; 
reading rnjm > ; 
reC j 1 . p*'rl imi t ntj'n 
end; 

others I ee help 



end 

end; 



^ tf>avDp?> 



PROCEDURE HOVeE^i 
bee in 

case mnich of 

: beein 

eotox'^C 5-18'^; 

iiir^^e< Enter 2rc PJ?vO •-•ear cost: s' 
readin< rum;; 
rs C J 3 . ^r -'P aOc ost : = rMtn 
Pnd; 

aotoxv< 5 # 1 8 ; 

?iir’tp< ' -jear cost.: s' ); 

read 1 n< nuf^» ') : 
r=-.C .1 1 • vrERaOcost. := nun 
end; 

; Deem 

eotox'sic 5^18); 

utrite'' 'Enter uear sust.en i? first available for oeer 

at 1 on : .• ; 

reading num .) j 

if num = 1 Then rsf.j 3 . it.atus ;= y 
p I = e r-s C -» 1 . St at.ijs : - I ; 
rs C j 1 , •=*r ava 1 1 ; = nuiM 
end; 

' I ■■ * i ' ; Deem 
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•?otox'^s *5 > t ; 

umt5 in irn^entcnv ' >; 

rs?a*^ln( m w >; 

rs C . j 3 • 1 tor^ : = nu«A ; 

n«.C j 3 . I: := r<rjl.opcost^rsCj3. :n•^en^orv; 
r«iC.j 3, uti Ht.t.1 ;= r*sC.i 3 .uti 1 s^‘sCj 3 . invpntor*;^ 
•srrtl; 

othPTJuise (<»a*!^oe3 
^nd> <.*i^-^vbe2> 

PROCEDURE HaV6El> 



PROCEDURE r^VRE4j 

Pick ! char; 
besin 

aot.ow< 5^ 18 >; 

•i#riteln<. -^Selact sustain tvp<?: 



u»rit.eln< '* 


1. 


HP. . 


. fif ^’ prrff. i • .'P 


Mpapon 


T’riPP 


P'' 


a 


writ.eln< ^ 


2, 


OP., 


. Dat' pnsxvp 


Wp.aPon 


T'-pp 


P-- 


); 


u.trit.,?ln< ^ 


7, 


OB. . 




Wp 3pon 


Type 


9' 


•* ; 


itiritaln< ^ 


4. 


. DB.. 


. Opt'enai'-'p 


Weapon 


Type 




) ; 



rpacK Pick >; 
p»jtit< 

put.it< 5 ^\ 3 p ' 
p‘.aiu 5 p 23 p ' 
pijr.iu 5.21 
puT>it,«. 5 p 22 *' 



cafi? pTci^ '“‘f 

I • : r<i C J 3 . aort : = '' OQ •'' ; 

'2' : r<Cj3.acrt ?=? : 

'3' : rsCj3.3ori^ != ^OR' ; 

' : raCjl.’or^. := 'OB': 

othpr»»«iap nplp 
pnd 

and; \<^pvhp4> 



oaain 

cas*? 



mhich Of' 

• 'a'' : bp^in 

^r>f . t R > : 

"•rit.pc •' *tnt pr npM nai^np: '; 

f^padl r< namp ■' ; 
r< C J 3 • nawp ; = name 
•=^nd; 

'B'p'b- : (naybp4; 

: be^in 

aot.oxyt; 5 > 1 8 ) ; 

• ^nt ar '.-♦par Bx<0 la r.o atart, < if npcaaaary > 



^p Id » n< num ' ; 

raC j 3 . ‘^rRaOafarr, 3 : = num 
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-0' ,'-.1 



>^nri ; 

^ 

‘n » t ft » ; 

fitful ''Fnt.ffr' He=*r^ R?H compl ^r. ?arA«=- T.T..=>rt. ». no»^fo 

nuf« *i 

r-^ C J ] . yrot R^O ngrn 
>®nd; 

E » 

3nT.ovM< S , t ft V 

^ Enter l^t R^O ve%r cost: s' 
n< r>um > ; 

rsCj], '5‘rlRaOcost num 
end; 

otheritfise rAavbe^ 
end 

end; fj»veMbel? 

be^in 

eut 1 t< 1^1?#' 
e«jt lU 1 ^ 13# ^ 
putiu 1#19.' 

PUtlU 1 
ptititC 1 *21*' 



?ot.ox':»< 5# l?);wri te< 'ftei'^rt a e=iraneterT ' 
read< u»nich ># 

»iav*be 1 
end; 

hp-siin 

for j ;= : to ir do 
Deem 

check flae :- *“^lee; 
ri»s>,»at 

'»*r I te«^ys^ j > : 

if r«sCJ 3 . delete = 99 then 
Deem 

PMtl t(. 1 3 # 1 7 « ^' • * * * *■* ^ ^ 4 * , « ..» . ,, ^ I. , w ^,, » ; .■ 

e*jtit^ i3 # 1 3 » ftVSTEH BEEN DELETED FROH THE GPHE * ■ • ' 

Pt.'t 1 tt. 1 3 # 1 S # ^ * f 4 * ^ 

"heckflv^ie ^r**e; 

pMt. ir.( i3p<^ 1 • ccTMRM tn advance pase ' # 

'^ead^ d > 
end 
elee 
Deem 

p»jt. 1 1 < 5 » 1 7 # Fntpr nr»o nf’ ^ re -OLLOW I NG oet i ons: ' > ; 

eutit^ 1 » 19# '’53. HI t pr a er'^ i ; 

p'jT.i Vs 1 p<i0# ■ 9. • « Pdv'^nce »aee to nevt def ault. >; 

P*J 1 1 tC ! ft . 2 1 # C . . . Du 1 1 brr.Mi-=. \ O'® ' ’ J 
neacTs d > ; 
case d of 
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: 0€-?in 

Ch9C^+‘l J ■= > 

checkRaOCj > 

'C'p'c' : b's'^in 

c b<?<7 k V' 3*? : ” T r^j<? ; 

checkRaOC j >; 

I y •: h-»c ** 1 t t.hen ex 1 1 ( a 1 1 er ^ 

ertfj; 

other»di«e nele 
end 
end 

until checkflas 
end 

end# 

PROCEDURE aoO; 

•v’ar 

j#k#nun : integer ?nam<» ? ?tri»^?;d : c^a*^? 



PROCEDURE PwRTl; 

PROCEDURE PTLLl? 

□eein 

r5C.j 3 . statute 0> 
90t0X^< 1 #5 )# 
uiritelrK ^ 

. • . # r*s r j ] . yrRaOs tarts > ; 

r-s C J 3 • yrot'RaO : - num i 
aotoxs< 1 #6 ); 

*Hri teln^ ^ 

yr o+ RaO > 

end# 



Fir-sr M<»ar RS^D can start:. 



Vrs R?.n conflated at ?ame start:, 



j# 



PROCEDURE PftRTlwiiXi 

i^3r 

Pick : char; 
oeein 

putit<5#t7.' 
aotoxv< 5 # 1 7 ; 

uiriteln< "SELECT SVSTEM TVPE: 

uirit*»ln< " 1. >’ip , , . Of f -^rvc I -jp uipgpon Tb*pe ); 

'•jritelnC " 2. DP. . . O^t'ensiue Weapon T^pp Q'')i 

Miriteln< " 7-, hR, , , nf^*en«‘' • ‘p weapon T*=*pp 8"''; 

mritpln*^^ 4, 08. .. Defers 1 up Weapon Tvp^ 9";# 

r^adi p;c^ >; 

»utit<5#17#" 



®UM t< 5# 18#" 
=>«jti tC 5#19#" 
p»»tit< 5#28#" 
putiu 5#2l >" 



case »ick 
■'I" : oeein 



. " #rsCj3 



» 



) 



' > 
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r?r. J I , : 

^otoxMi 1,4); 
Mir T T.»? 1 n'' ■' 



•jff»?fr5Zi..'e Wespon Typp 



= ' OCl ' ; 






•?rdJ 

"2^ : bP«?in 

r-^C j 1 . *ort : = ^OQ' ; 

?otoyy< 1,4); 

nirit-o-lrK ' T'.-ip*®^: Dpt"»?nsi"p W«?aPon Tvpp P 

o' : be*9in 

r^C.il. -c-'t. : 

•?ot,ox*^ \ ,4 ) ; 
tun T.i»ln< " 

-»nr1 j 

'4' : b»?^in 

r<Cj].?or^ : 

90t0XS< 1 ,4 >; 

I'iritplrK 

'?rr2i 

ot,hpnin«p help 

*?rv1 ; p Prt. t .=)u x > 



= 'OB"; 

Tm^o: , , , , . Opf prsi ' k.'P Hpapon Typp 9 



= '0^' J 

Tmpp: nt'fpn<>i'Jp Weapon Type 9 



beein 

?Ot,OXM<, 1,1 ) ; 

iurit-eln< ' NfW S’VS'TEM '#!»*>; 

Put 1 1< 5 • 1 7 , ' 



^T.oxy( 1 9 , 1 7 ■> ; 

iiirite<^£nter ne»j< “^yetem naiinp: ' 's 

rea<3in( name 

r-s C j ] , naoie : = name ; 

?otoxy<. 1 , 0 ); 

Miriteln< ^ Hamo:,,,.. ' ^r^* C.,? 1 . name '; 

partiaux; 

?otoxy< 19,17’'; 

i'«ri te< ^£r.T er ye^r .Rii-D to ' :f ro PtO, enter 9.'*: ' )» 

read i nv nui«i ) ; 

r<. L j ] . yr KaOet.arte r = num ; 

1 f num = 9 then 7 i 1 1 1 
el ee 
Deem 

?otoxy' 1 , 5 :■ ; 

''»rit.?ln' ' <:m rtart; , . . 

• r<.C^ ] . yrBaDatart c. • ; 

»uti tC S, 1 7 , ' 

'■ i; 

?otoxy< 19,17 ); 

i»»rite< ' Enter yr? fty/0 rnmpl i»t »»rt aame =.r.art \ normally 9>; ' 
read 1 nC num • ; 

ir num = y then r's.C il, jtarLMj := l 
elae raCjl.atatua 2; 

Ui 1 , yrnt RaO : ^ rum ; 

30toxyv 1,8); 

i«iriT.eIn< ^ '^'r= ^'^0 coiviPieTpc ?ame Jtart: . . • ,r 
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tC j 1 . '^rofP^D ' 

PROCEDURE PRRT2; 

PROCEDURE PTLL2; 

h*T9irt 

j ] . ':<rlR.=i 0 co- 5 t : 
sotoxv^v I # 7 > ; 

»'<r i '' 

.yrlRaOco^t ■>; 

r^C j3.’s'r2RaOco^t ; 

?o^oxy<^ U3>; 

.yr 2 Ra 0 co^T, ); 

r?Cj].yr3Ra0cost. ; 
aotox'sK.* U 9 >; 

.’^ 3 Ra 0 co 5 t ■> 

•»nd; 

if r3 C^i 1 . vrRaO-start^ = 0 th^ i U 2 
alse 

p»jt \rX5*\?»'' 
aor.ox'sK 10# 

writp< '‘Entpr 1 st R 3.0 '^ar co^t.: S'" ')} 
r«?adirK r«jm>; 

rsCJl.yrlRaOco^t := nu«'^; 
aotoxyv I # 7 ; 

iitritPln<' Fxr<t P^?n Mn^gr co-st: S' »r 

' sCJ J.vrlRaOco'St 'i 

f>*jtit< 5#17#^ 

•’ i 

?otoxy< 10# 17')? 

•uritpC 'Entpr 2nd RJVO v«?ar «-o st : S' 
rpadlrK num )# 

rsCj3.yr2RaOcost nuMi? 

30toxv< I #3 ) ; 

'••riteln< ' --^r^nct P:f.-0 ■T»p=^r cost:.. S' ,r 

5 C j ] . *:#r 2Ra0c ost ) # 

putir.< 5# 17 • ^ 

i 

?otoxy< 10.17"'# 

i»rita«s ' Entar 3rd R:^0 'dtaar cost: S' •; 
np^i-jinr nun ); 

rs C .j ] . 3Ra0c ost : = nu»ft ; 
sotoxM^ 1 #9 ) j 

i'iritaln<^ Third vaar cost; S' ,r 

s C j 3 . sr 2Ra0c ost ) 

and 

•^ndi 

PROCEDURE P^RT2i 

Daain 

Put 1 1< 5 # 1 7 # '■ 

.'# 

?otoxu< 10# 17); 



= nun? 

R!?0 rost.;... .,5'#rsCj3 

= nun; 

Second RJ*<0 vear cost:,. •.J'#rsCj3 

- ni>n ; 

Th 1 rd dJcO '^aar c ost :.a............J^ # rs C J 3 

^•*f'iU 2 > 
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mri ' Enti?r 5 v<>T.'?(n liable ^'cr operation; ' ); 

read 1 n< rnji<^ > ; 
r C j 3 . ■=‘rava 1 1 : = rurn ; 
aot.oxyi.’ U 10 >; 

iMriteln< '' Earliest available < after R ano 0):. 

. . ^ »raCj 3. •2»ravax I >; 

p^jtit< 5*1?*^ 

' >i 

aotox*^ t0#l7>; 

ivir It 'Enter unit? in inventor^ at =tart: 

readlnC num-) ; 

rsCsi3, inventors :=* nun; 

aotox^^ 1 j H ; ; 

oiriteln< ' Unit -a: m ir^^entory < at aame atart'):. 

. . ' >raC J 3 . iniJ<»ntcr*y ■>; 

p*jtit< 5#17>' 

/ » 

?Otny'2< 10,17'); 

"ir It e< 'Enter acp»Ji«ition erst, unit; s' 
read I n< nun ) ; 
r^C^l.aecoet := num; 
aotox'y< 1,12); 

u»riteln< ' 0CP»ji5ition c?5t < p»r unit;: 

,r5Cj 3. MUC ost ) 

end; Cpart3> 

PROCEDURE P0RT4, 
bee in 

putit< ‘5.17, " 

■ ' >; 

aotoxy< 1 0 , 1 7 > ; 

'.MritP< 'Enter OPerv-.ine cost »er unit: 5' 
ri»adln< num ;; 

.r^Cj ] .oproet := nnm; 
aotoxyi. 1 , 13>; 

iuriteln< ' n»^r at me co<t •; unit ); 

• S' ,reC J 3 • OProet ) : 

*»utiT.<5,i7,' 

■■ 

aotovy^ 10,17); 

'•jrite^. 'Enter util value per «jnit: ' .*? 
readln< num) ; 
r^CJ3.ut:la ;» nun; 

?otoxv< 1,14); 

>'iriteln< ' '‘alue :n Mtil«. •; p«r unit): 

. , ' ,r*sCJ3-uti la ); 

p».»tiU5,l7,' 

■ ) ; 

aotovvv 10,17); 

'»irite^ 'Enter nav?mnm annual ^urrhaae r^te: ' 

readln< nun .> ; 

raC j 3. purl imt := num; 

aotox’y'k 1 , 1 5 > ; 

!f‘riteln< * HaxijYjum annual »<jrchaae rate: 

. . ,raCj 3. Purl 1 mi t >;iDrit'»ln 

end; ^'par^4.> 

beam 

♦or ; 13 to 30 >10 

• Deem 
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ch«^kfl33 

k - 17; 

clearscr^^; 

Parti ; 

Part2; 

part3; 

part4 ; 

cJ"h?ckfla'3 := trni?; 
chpckRaO< J ) 
until cnpckflap; 

nuwot’5'=»5 terns J» nfjfjM?f<.vi<T.e(ns 1 ;r<C .1 ].ppr>alt*^ := 

rsCJl. delete 0;r«C Jl,npcn<ttt 1 r^C.i 3* opcost^sCJ 1. inventors; 

rsCjD.uti Isttl :» r«.C.i].nti 1. inupntors; 

p«jtit< 10# 17^' Do laisn to create another ssstenv? ^ 

puti t( .10# 13#' <V or N> 

reacK d ) ; 

if <d = 'N' > or < f1 = 'n' J then erit< add) 
end 

end# <add> 



PROCEDURE bUObET; 
v^ar 

n#j#k : tnte e er# Dudflae : boolean; s : char; 



PROCEDURE CnaNGE; 
oeein 

putitC I #16# ' — ' )# 

putit<l#l7#" ^); 

p»jtiUl#18#^ ' 

eotox':#C 19# IS >; 

'i»rite< 'Enter year for .-hanee < Th^n press RETURN); ' )# 
read I n< 11 ) ; 

1 f 1 1 >20 > or M X < 1 > t hen 
beein 

cl ear screen; 

p»jtit<24#10#'VEQP BE IN TWjc RQN»5E (1-20)')# 

putit< 27# 1 1 #'<'Press RETURN to Continue)')# 
reacK s )# 
exitC chanse) 
end# 

eotoxy< 6 # 1 7 ) # 

■t«rite<; 'Enter ne«<i budert# »*iithout oecinals (Then press RETURN)? ' )# 
readln<.j>; 
redOudaet C 1 x ] : = J 
end; Cchanee) 



Deem 

Dudflae false# 



repeat 

c 1 earscreen ; 

putitC 31# I # 'BUDGET INPOPMQTION- >; 
PUtitC 20#3# 'VERR fiHOUNT< S 
for 11 := I to 10 dO 
Deem 

j : = I : > 10; 
k ;= XI ^ -i; 

eotoxy( 23 # k ) # lor 1 te< 11 ); 



VEPR 



flMOUNT(S)' ); 
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32 jX )i ^ C 1 1 1 > ; 

?otoxy( 45 # k > ; lur 1 te<. J > s 
?or.ovr*< 54 , k > ? mr t t.o< rpdbudi»er, C j 3 > > 
end; 

pijtitt 28 • X Enter ''f'/' to t^ake ^ chsnao>^;; 
p<jtit<30j 17# ^<Enter ''O'" to >; 

?otoxy< 38#18>? 
readC ^ ; 
ra^e a of 

' Q : budf I ae : = true ; 

'C'*'c' : c»^An»; 
othenma^ help 
end 

until budf 1 39 ; 

Dlubud^et := recibijftget 
end ; < budget !i- 



PROCEDURE ELECT; 
beeun 

cl e arse reen; 

putit(14,2#^ &pnc:pRTLTTV np MPP COHPMTPTIOM OPTION ' )i 

putitC14,5#^ The -annual possibility of a u»ar is deteroimed ' >; 

putit< 14#8# ^prooabi 1 is^-i cal iy by a random draw jfthose threshold ' 
putit< 14,7,^uaiue is based on the iftaenitude of dispariv-* between' ); 
p+j t it< 14#3 >^p 1 ayers ^ ' tot a 1 adj us t ^ ut. 1 1 1 1 ^ f 1 eures . ' )» 

Put lt< 14, 10, ^ The umpire >»^av pjprt r.o override the aboue ' 

p«jtit< 14, 1 1 , 'comp«jtation method and ce <p»eried annually as to ' >i 
putit< 14, 12# ''»*het.her the '“;^r pt.'pnt. i« tn take Pl ace. 

putit< 14,1P,-' rjnppRiOE <V nr N ■» ' >i 

eotoxy< 40,16) ;re ad< ware ont ^ 



end# V elect > 

beam 

for 1 :» I to do 
beam 

ciear<creen; 

putit( 70#3 # '4 ;3M^t.eims Re«.npw 

putit< 7,7 I . . .&rnffi«e^Plter ifieapon system budeet parameters 

put 1 1 < 7 , 3 , 2 . , . pdd new 't wst ems ' ) ; 
putitv 7# 1 1 , • . Delete a system' 

putitv 7,13#^4. , ,&ro»'»«e"'‘^lter annual buaeets tor all same years' ); 
putit( ?# 15# '5. . . Elpct to crntml the annual probability of w.ar' ); 
putit< 7 . 17. '6. . .Obtain »rinT.o»Jt nt saf«e systems and parameters^ 

Put 1 1< 7 . 1 9 # " 7 . . . Ou 1 1 Ump t re Sec 1. 1 on and bee i n same p I ay ^ ■> ; 
readC choice ) j 
case Choice of 
' ; alter; 

' 2 ' : add; 

3' ; delete; 

4' ; OUd?Pt ; 

5 ' : e I e»: t ; 

8^ : printsys; 

7*" : oeein 

Ds : = rs ; 
ex i tc ump 1 re ) 

•»nd# 

otherwise help 
end 
end 

end# tbro»ii«e) 



bee in 
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prt. choice# 
brows*? 



PRQCEOUftE OPSTfiTUS < ^rson 
font»ard; 



St r ins >; 

< osst-^t *JS > 



PROCEDURE MSraruS ( psrson 
Kor'tiardJ 



strins >; 

(. 5T US 



SESHENT PROCEDURE BUV (psrson ; strins; Hst, : char); 

tWsaPon PTocurstnsn^ rout- ms; sfw*lov< checks to ensure budset balance 
IS not exceeded-^ and that e«.trchase rates not exceeded- Pl?o allcn<»s 
for scraeeins of units^ and acst.iisi tion expend iu.«re UPdatins-> 
uar 

?ctit : boolean; ip ii* Pick : inte-®er; choice : strins; 
ansiiier : char; 

PROCEDURE BUVHENU; 

f onward ; i buvmenu > 

PROCEDURE BUVKOWHUCH; 
war 

it»i ,baj» man V ji left> deficit : inteser;bt«dset : arrayC1..20] of inteser; 
d# e : c bar; ass pent ^ isp^mt- rospentj expense : inteeer; 

PROCEDURE CHECKl ; 
begin 

?otoxy< 15>10>; 

'•<riteln< ^Purchasins ' uniu-^) of ' #sssC i i ] .name#' will excee 

d the annual ); 

"*riteln< ' «>«jrx-h.3se rate for this system. 

/ ; 

?otoxy08#i3 >;write^ ' The sx<T.em annt.»=^\ »<jrchase rate : ^ 
write Inc sysC 1 1 ]. Pur 1 imit >;«otoxy< iPf 14 

writeC''The number remaining fr»^ Purchase this year : ' >» 

»«<r 1 te 1 n< sys C i i ] . un i touy > ; 
eotoxyc 18#1S >; 

writelnC^Do you desire to (Mir*ch=»s<» *‘e»i>er than ''►many#' units?^); 
PUtltC ' <V nr H> ' >; 

readc d > ; 

if (6 - 'M' ) or <d = 'n' y ^.hen 
oesin 

clearscreen; 
exit< buymenu ) 
end 
else 
reein 

f»uti tC 18 # IB • ' Pe<»nT.er th<» number of system units desired ' y* 

I B # 1 7 # " < Fn 1 1 ow ''11 th PETIJRN > 

/' ; 

readlm many ); 

if many > sysC i i l.unitbuy then 
Deem 

PUtitt vrtM^-'o^ fjoj rnopcf;igxj|.40i j 

p»jtit< 1B#29# ^ <Prss« ^ETURN to exit. >' j; 

reao< d 

c learscreen; 
ex 1 tc b» jymenu ) 
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end 

end 

end; 



*>hp<-k \ > 



:;ThE hOLLOMINJ? SEGHf^MTED PPnr.;ED*JPE9 i^RE COMPILED INSERTED IN THE HHIH 
PROGRPH PS BPTCH 2P USING THE COMPILER ^INCLUDE’ OPTION, DUE TO FILE 
SIZE CONSTRPINTS.::- 



PROCEDURE CHECK2<irtuch : inr,e-?pr >? 
yar 

t#k : integer ; 

PROCEDURE WORDS ; 
beam 

aotoxv<5#l8>; 

iMri t-eln< ^ I C aou cont.inue "tith thie purchase and do not scrap ana o 
then sastetfts" >; 

aotoxa<5>l9-); 

to lo*vPT oporatma cost^ > acu urill have an annual d 

eficit. Thu 5 

?otoxv< 5*20 >; 

".»riteln< "'this aroo«jnt itnll ^hen r*? deducted f'rom next year'^s budge 

t, " >; 

aotoxvK 15.21 ■); 

lur T r.e 1 rK ' Do '-»oui w mn to c onr. ; nt«e •»» x r h ^.n i s ac gu i s 1 1 1 on? ' > ; 
eotox'5‘< 20.22); 

umiteirK ' <V nr N>' *>; 

readt. p ) ; 

It ce = ^N' ■) or^ e = 'n' tnpn 
beein 

clearscreen; 
ex 1 1^ buynenu ) 
end 
else 

c 1 ears.creen 

end; t»»iords*i' 

beetn 

c learscreen; 

euMtv 38.1 .' WPRNTNG' ■*; 

e^Jti t< 15 .2 . '^ou ha^/e nnt .^nnu'^h t-Mpd? ^®nainine in the ^ear to roake' 

>; 

p«j 1 1 1< 15.3.^ ’“.he dp« I red » i s 1 1 1 on . ' ) ; 

?otox*:^c 17,5 

uirite ln< ' Stjdeet, ,S' ,bud9etC'r«ear] > 

?o^ ox’-'^ 1 7 , 7 • ? 

'iiritein< ^Hmount tP'^nt for ^-st.iiaiticns. . . . .aeseent J; 

?otox’=t< 17,3); 

"«r 1 te I n< ^ P<t^ount ^eent ^"or i nt e 1 1 1 «enc e....... * S' pi spent ^ ; 

aotox*2»c t 7 .3 > ; 

'•»ritein< ' Pmount seent for R md 0. ••••■5^ .rdspent ); 
t := 0; 

^-'or k* : = 1 to numot‘*'^<T efn« dn 
if S’JsCk ] .delete = 0 then 
^ r= t ] . o^cosT.tT.l ; 

?otox’=»‘. 17.10 >; 
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».urit^ln< t-O I current.^ ■»» 



•?otoxvv 1 7 # 1 1 > ; 

'Mr 1 t.t? I n< ' \ nv<»n tor i *>«. S' *t>i 

?otovM< \7A2"^} 

lur 1 te .1 r»<. ' Qmourt i m n<» s' 

90tov*r*< 17.13); 



nfTi teln< ' I tior anrj op^r^tir^ co-st*? ^ 

^tOx.v< 17 # 14 ) ; 

u»r 1 1«? 1 n»; of 5 y St •??>? =>r t ; tv •= «? 1 *?c t»>d ^ > m'JC h ; 

?otoxvC 1 7 # 1 1? ; 
deficit := left - w.tch; 



'•»ri telrK ' Def icit S' #det'ic:t 

luords 

endi 



PftOCSDUPE eUViT; 
oar 

D3Cj<#ioin ; infewrjdel ? char; 

De^in 

If irtanv<0 ther 
besin 

c learscre<»n; 

p»Jtit<24ptt?».' vnu rCiN^ ?UV mEAPTHip unit?!"); 
eut 1 ti 24 , 1 1 , ^ < Pri^ss RETURN to Cent i nu<» > ;' ; 
read< del > ; 
exi tv busit ) 
end; 

oack ; =* ( 1 1 1 . i nvent nr^j-nnanv 1 1 ] . tvai ; 

if back<0 then back:=»^; 

If (•>anv<^ack th<>n inin := foany 
else min :* oackj 
if persnn * then 

beein 

red left := redl^ft - 1 1 1 . oercst - m i n4< vsC 1 1 3 .aec osti 

ra«?«.pent r=*««ppnt ^ i i l . =,<^r Qct ; 

rs r 1 1 3 . uni t b».»y : - rs ^ 1 1 1 . ' 'm tb»jv - ;vian^ ; 
rsC 1 1 3 . inoentor'^ : = rsC 1 1 ] . in^.'pnr or^ many ; 

rsL 1 1 3 • oPCOstT.t 1 : = rs f 1 T 1 . opc osttt } re L 1 1 3 . opcost-^nany ; 

rsC 1 i 3 . uti l<ttl rsC.i i 3.ut t Istt.l ^ rsf 1 1 1 . uti Is-fmany; 
svs : - rs 
end 
else 
beam 

oluieft :» bl*.tlet‘t - t>i5nv-^v«r . ’ t ].o»cost - min^vsC 1 1 3. a^osti 

bapspent :* bapsppnt. -*• mi n-*«*-»« r j i 1 , ; 

osC 1 1 3 • unit buy := bsC 1 1 3 . unirbi.iy - i<>any; 
bsC 1 1 3 . inventory := osf 1 1 3 . m'^^ntony .lany; 

os C 1 1 3 . rpc oe tt 1 1 : = b-= r 1 1 ] . nor o ? 1 1 1 1 be C 1 1 3 . opc ost^any ; 

bsC 1 1 3 .uti Isv^ I := beC 1 1 3 . ut i I stT i -p b^f. : 1 3 . uti lstw»any ; 
tVS := be 
end 

end; ^!buyit> 

PROCEDURE iCRwPIT; 
oar 

oack^rtun : inteeer ;d*»l ; char; 
bee in 

It i»vany\y then 
oppin 

c i*»^recrepn; 
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PutiU25,KiA'V0U 'iCP.Ci? N05QTIUE UNITS‘^ ); 

p»jt^ 1 1 < 25 • 1 1 # ^ < Pr^ss R ETURH to Cent, i nu<? > ; 

r>»3d< >; 

scr;5i»it ) 

•?ndi 

Dack : * 1 1 ] , i nv«»nt.orM-<:.v«. r i i ] . r val ; 

if back<0 thi?n back:==i^; 
if manv<=oack then iv^in inan^ 
else torn sack; 
if Person = PlayersCl] then 
beam 

red i eft : = red 1 eft > off ansH-<^v*s C 1 1 1 - opc ost > i n^vs C 1 1 ] • aec os t i 
raeseent != raeseent - nin—^M-sC i i .1 . accost. ; 
rsC i 1 ] .unitbuv* := rsC ! 1 3.umtbuv r man^^i 
rsC i i ] . invent orv : = rsC i i ] . in«.'entcrv^ - toans^ ; 
rsC 1 1 ] . opcostttl :* rsC 1 1 1 . recosr.ttl - rsC 1 1 ] .opcostrmanv; 
rsCii].utilsttl := r< C i i 1 , utx Istt 1 - rsC i i ] . uti Is^nans; 
r ’s»s := rs 
•»nd 
else 
deem 

biulef t bluleft r *itanH-?^vsC i opcost ^ inin*fisysC ii ]. accost; 
baespent : = baespent - C i i 1 , accost ? 

bsC 1 1 ] • unitbuv := bsC i i ]. unitbuv > manv; 
bsC i i ] • inventors : = bsC 1 1 ] . in^^ntor'-f - <nans ; 
osC i i ].opcostttl ?= bsCii3.0Pro<tttl - bsC 1 1 ]. oprost^Ht^an^; 
bsC i i l.uti Isttl := bsfi i ].uti Isttl - bsC ii 3.uti Is^wan^^i 
sys := bs 
end 

end; <scrapit> 



beein 

if person = ^la'r^ersCil then 
bee in 

Oudeet : ^ redbudeet ; 
left :» red I eft; 
aespent := raesp^nt.; 

1 spent n spent; 

^dspent ; = rrdsp«^nt 
end 

else 

oesin 

Duceet : = d 1 ubudeet ; 

Uft bluleft; 
see Pent : - oae^pent ; 

1 spent ;= bi spent; 
rdspent := brdspent 
end; 

?OtO'-<'=*v 15#lkr>; 

1 ^' iist=^c-' then 
oesin 

'MritelrK ''H oh !^anv units of *vsien ' >s^sC iil.name,^ do vou uiant to 

> ; 

roadlnC ivian'^ > ; 
scrspit ; 

exi t^ Duvhouimuch ' 
end; 

)*»r:teim 'Hnuf many un:t« of rysi pfm ^ ^sys C 1 1 ] • nande^ ' 1o you mant to »urc 
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:+■ I'lanv > ^y-sC 1 1 ] . uni tOuv» rh^n chf»c ^^1 » 

ba : = < 'sy^C 1 1 ] • inventorv-^nany >-sysC 1 1 1 . tva I ; 
if ba<0 then ba:=€»; 
if ii>any<=ba then ini := i<>any 
else tni := Da; 

expense : = sys C i 1 1 • aecost^i =y^r 71 ], oprost-^many; 

if expense > left then check2*' expanse ’ ; 

ouyit 

end; rb'..'yhrn»ifmjch> 

PROCEDURE BUVHEHU; 

PROCEDURE NEXTi; 

PROCEDURE NEXT2; 

Deem 

0OTOXV^. 38,13); 

Hirite< ' S' ^sysC 1 1 ].0Pcost >; 

OOTOXVC 47,13); 

'••rtte^ sysL* iil.utils>; 

G0T0XV< 35,13); 

inr 1 te< sys C 1 1 3 . "n i t,Duy ) ; 

G0T0XV<- 05,13); 

'Mrite< 'S' ,sysi ii 3 . OPcostTTl. >; 

GOTOXV<; 73*13 '» 

‘Hr 1 r,e< sys C 1 1 3 . ut 1 1 sTTL ; 
p«jtiu 1,14,-' 



end; <next2> 

Deem 

?otoxyv 1,7^; 
mr^. teln< ■ 

•' ; 

iHriteln*. 

•* ; 

>Hritein< ^ 

V ; 

iHritelm ' 

; 

“iritelrK ' 

j; 

'Hr ite I 

.* • 

'Hritelm 

■' i 

p*Jt. 1 rx 4 , ' UPnpTPn r VGTEH I H«^riPMQT T PM ; ^ ; 

't I rx G , 1 0 , uP OP PURCH 

fuTwL 

p'jti t< 2,11,' GV=TEH< TVpc > IH* •F^^rriRV COST COST UTILS 

OPCOST IjTTLG 

i-HjTOXV^^ 2,13-'; 

'Hr 1 te 1 n< ?ys( 1 1 3 . nanw? p'f ' . c t 1 ] . ^ort , ' ' >* 

GOTOXVC 21,13 ); 

"♦r 1 te< t.ysC 1 1 .1 , 1 n».>^>n^ ory ’» ; 

GOTOXVv 30 , 13 ) r 

"iri T..?r ' L 1 1 3 . iHpcost ) ; 

next2 



LIMIT 
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1 n 



OTPi. 


P'JtiU4>l,'SVSTEM THFCiRHOTTON! ' >; 
»UMtc8»3.' 

y > 


HP 




PURCH 


r 


OPCOST 


p'jt 1 1< 3 , a , ' 3VSTEH< TVPE ) T N> iPMTCiRV 

UTILS '■); 

'SOTCiXV< 2tS'>i 


COST 


COST 


UTILS 


LIMIT 



f«ir 1 ln< 5 ssC 1 1 ] . n ^ to. 7 ort > ' >: ' > ? 

bOTOXV< 21 *S -fi 

'ur 1 te< ■? C 1 1 ] . 1 nventorv > ; 

i30T0XV< 30 >6); 

•Mri te< ' S ' , 5vsC 1 0 . «3Qco-5t > ; 

!30T0XV<38>t3>; 

mri ^ S' , 111. OP^ost > ? 
i30T0,XV< 47 >8 > 
mri te< sy<C 1 1 ] . ut i Is >; 
i30T0XV< 55i.b>; 

H«ri te< ss»sC 1 1 j . um t Ouv >; 
i30Ti:iXV('b5.8^; 

«tirir.e< ' S' .s'-'sC 1 1 ] . OPcosr.TTL >; 

•30T OX V< 73 # 8 ^ ; 

luri te< svsC 1 1 ] . ut X 1 sTTL > ; 

buv-ho«umuchi 

n^xtl 

«?nd i <’ buvm^fH.1 > 



) 



PROCEDURE WRITEFTRSTi 
besin 

sotoxv< 15> 15 

' )p 

luri t.i?in< " 

•* > 

mr Tt.^ I rK ' 

; 

?otoxvv 12^15 >5 

<Mri t )?in< 'Enter f.h*? n^e ot iM-c:rp<n in»..*ent.nrM misn to alt^r. 



end ; 



•T Jiirx tef X 



PROCEDURE WRITESECONO; 
oesin 

?OtOX'=<< 15> 14 >; 
i‘iriT.eln< ' 

’••r 1 t.j? 1 n< 

' >; 

u»ri teirK ' 
iMriteln< ' 

'•.rritein< ' 

• 5 

?otoxs‘< 15>15 >; 

»«ir 1 tel n< ' Oo 'r»ou manr ^.o another •T^^nse'' ' ); 
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?ot.ox'y< 15^16); 

v or 

r<?ad( '* ; 

if C answer - 'V' i or ^ ^nsitn»r = r.h'^n 

pxi^< buv* > 
else case list, of 

' a ^ c ' ; ex 1 1,< orstau.«s ^ ; 

'b' : exit.( 
end 

end i >*»r 1 1. <?« ond > 

Desin 

for 1 ;= 1 to 101? do 
besin 

if 1 =5 1 then mrit-ef ir<t 
else writesecond; 
eutitC 0# 18# ' 

" ); 

p»jt 1 1.< 1 7 ^ 1 8> ^ '' Fo H 0’»» *»n f h 9FTUPN > ' > * 

Put. i t( 27 # 1 7 * '^ < T 0 r o 0u ! f > * ; 

readlrK choice >s 

if ‘.choice 3 ' 0 ^ ) or <choice - "'•a'*) 
fhen case list, of 

a ^ c '■ : ex 1 1 < opsr atus ; 

'b' : exifi a^*s^atu« > 
endi 

ii :» 0; 

aofit :» false; 
repeat 

1 i 11 r 1 ; 

if (choice * SHsC i 1 ] . name ) or < i\ > n»jmof*s*=»«.tems >» then so tit := tru 
until sotit; 

if choice =* svsC i 1 ] . name then hnymenti 
else 
Deem 
help; 
pxi t< buv > 
end 

end 

end; fbu*r<> 



oEGHENT PROCEDURE ROSTQTUS (person ; strins^; 

(Called from main menu. Prnuirjes for prn/:virom<»nt and display of new 
RtO opportunities# shelved PtO »rr).jpcts# and projects in mnrk. 

Ml lows Player to chanee the ^t-atus of* any «>ro.jec'f.. Updates 
she 1 urns penalties and all RtO pv5»endiT.ijrp fisure«.> 

‘.'.ar 

puitflae : boolean; d ; -:har; title : serine; le^'t, mucn ; inteeer; 
B<^^p<^nt# I spent# rdspent : intespr; buo^pt : array Cl.. 20] of inteser; 

PROCEDURE PDH€POER< where : i nt.eser > ; 
besin 

ciearscreen; 

Put i t( 28 # where # 1 1 1 1 e > ; 

?otoxy< 1 #3 > ; 

wriT,eln(' VRS PJtO TOT voq yp} t ‘jr 2 VR 3 wCO OP 

PUP.C^ ; ; 
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•Mritein< 'Ni4He<TVPE> COMPLETED REQ^'O COST COST COST COST COST 
UTILS RPTE'>; 

‘uriteln 

•?nd ; ader > 

PROCEDURE LISTIT C i, counter : integer •# 

•var 

I* loany : 
be«in 

i := 5 counter; 

30toxs< 1 # 1 >;>tirir.e< ?v«.C i 3 . C i 3 . =crr., ' ) ; 

90toxv< 1 6 > I ) ; wr 1 sva C i 3 • yrof RaO > ; 

if 1 3 • vrSRaOcost > P th^^n r^arv := 3 
else if aysCi3,sr2Ra0co5t ’> 0 then i»anM := 2 
else if sysC X 3 .'i'rlRaOcosr. > ^ then man^n := ti 
eo toxy c 26 # 1 ; u#n i te< r<»an^* ) ; 
sotoxy< 32 »1 >;u»nte< ' s' ,svsC 1 3 . vrlPaOcnc.r. >; 

90toxy< 38 # 1 >;«iir I te<* "S'' #s^sC i 3 • •-♦rSRaOco'^t. > ; 

90toxv< 4^»l >;iurite< 'S' 1 3 . 'r^rSRaOcns^ >; 

aotoxy<50#l 'S' #sysC i3,POco^t,>; 

30toxv< 56^1 >;uiri te< ' s' 1 3 . OPcost >; 
sotox^^< 63 # 1 > ;uir i te<; sysf 1 3 . ut, 1 1 s ) ; 
sotox^rK 70 # i > i Mr I r e< svs C i 3 . purl i n i t ) 
end; <lis^lt> 

PROCEDURE CHECK; 
uar 

t^n>deficit : inteeer; c : rhar; 

PROCEDURE WORDS i 
besin 

eotoxv< 2# 18 >; 

Mriteln<'If '-»nu conr-irne mith rh?« 5nd do not. scrap or shelue 

an^4 other >; 

sotox^(. 5 # 1 9 ; 

mritelrK to lo*»i^ *r*our np**^”^tir0 > ‘^ou «'»ill an annual defic 

It, ‘ Tfuice' 

?otox^< 1 1 #20'-'; 

»’«ri teln< ' this .amm.int mi ^ i fher» he ^ron ne'^r. •2<ear'’'s budeet, ^ ) 

; 

sotoxMv 15 #21 

'‘«riteln< "^Oo vou uM«h '”onT-in«»e '»nt.n ^hi-^ in*.»est.m^nt’^'' ); 

?otnxv<! 20 #22 ; 

i»«riteln< ^ <V nr M'>' •; 

read< c >; 

if < c = ■' or< c = 'n' ’■' th»»n 

beein 

cle^rscr»«^r; 

exit.c rdsT-ar-ijs > 
end 

end; firinrd<?> 



oeain 

c learscreen# 
putitt36#l #'WaRNIHR' >; 

p<jti t( 15#2> '' Voij ha^-*^ ’^ot *3no»»‘^n f“nd^ »''e«>airins* in the vear to inake' 
putitc l5#3#^ the de« 1 ro'O ir»i . ■ * ; 

?otoxv< 17»5); 
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«Mriteln< ' #Dud'?etC‘=*^ar3 > 

?or.cy Mk 17,7':'; 

«Mr 1 T.j? 1 n<^^ ■ PiT^o»jn t. p^-nt ^ t o».»-a 1 y +'*“‘r 1 1 1 1 - i ons . . . . ^ ^ ^ ppnt- > ^ 

17 ■>; 

»'«ri t.^irK ^Qmo»jrrt «»pnt f*or int.pl 1 ^^erv-p, 5^ >i?ppnt^>; 

?ot^oxyv 17 >9) : 

’»*ri ti?ln< ' Pmnunt. »rw*iou« ly =ppnt. fvir R 3rv:J D, ....... 5^ >rrisppnt. >; 

r. : * 

^'or n := 1 r-o dn 

1+“ svsCn] . dpiptp • ki t.hpn 
t. ;* f. sy-fCf^l . opcostt-t-l i 
pot,oxyv 17> 1«^‘:«» 

"iritelrH ^Pmount. to opprate all current.-' >; 



aotoxyC 17>1 1 >i 

'MritplrK ^ int/pntorips .-5^ ,t>; 

aotoxv< 1 7 , 1 2 > ; 

»"r 1 tp] n< " Qrt)ount remain i n*?. 5' # 1 aft f ; 

aotoxyC 17,13'^; 



"<riti?in<'R and 0 costs < incKfdinp anvi ppna ity f'or •' >; 

aotoxyt 1 7 ^ 1 '1' > ; 

mritPirK' «hpUnnp ’‘ f'or mpapon «.m<t p^n ^plpoted. ... 5' crouch >; 

aotoxy<' 17, 18 >; 

deficit :» left • ">uch; 

••fTiteirK 'Oef icit. ,5' ,det'icit >; 

tticrds 

endi <v^poJ^> 

PROCEDURE CftOi 
•-.^ar 

1 , «:o»jntpr, inhere : inteeenj 



PROCEDURE CHOOSE 1; 

^^ar 

e : strine; j : inT.p<»pr; : cr^r; 

PROCEDURE HOHEVt; 
bee in 

if persnn = plaversCT] fh^n 
bee in 

f^vjch ;= n-^C.i 1 . '-w^l P^Ocnst J 
if ouch > red left thpn check; 

^rdspent != nr^d^penf* • 1 1 . yrtRaOro*«t ; 

redlet't :* red left ^ rs C J ] . yr iPaOcost 
end 
else 
beein 

o^jch os C I PaOcos*^ : 
if b i u I et‘ t < ouch then c hec k ; 
orospent t- Orrtspent > D.:^n*Tvct. ; 

bluleft biuieft - osCj ]- yriRaOco^t 
end 

end; Connevl*!* 



Deem 

“^utiU 13,14,^- NOTE: '^LL NEW 9xn ^PWjfryS WILL SE 
p»jtit09,l5,*'e SWELLED >^1 VEWPEHD UNLESS vfilj 
»UT. 1 1< 1 3 , 1 6 , NOW nc c T ^^nWTE ^ ; 

eoT.nxv^ 17,13':'; 
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•"Vou 5^,1 eft#’ \n this budset' >; 

7#20#^Ent.i?r r-h<? -sLvist.<>tn «Mho«<» RJtO '^‘ou I'nsn to besin; 

i^jtit< 7,21 > ' <Tr<p^ " to ^»it> ' )* 

sotoxy< 85 # 20 ) ; r<»ad 1 n<' •? > ; 

if < ? 3 'Quit^ > or < >» = ) thi?n »?vit<crd-> 

•?lsi? 

be^in 

^'or 1 1 to n»»mnf<H«T j?tvrs ho 

b'f'^in 

1 f ^vsL i T , nami? = .? th^n 
be^ir 
•none^ 1 ; 

sysCi 3, status !* 2; 

1 f psrscn - «» ) =^v<?r5 Cl] th*»n r-? : s « 

<?ls^ bs sys ; 
cli^arscri^i^n; 
sotoxy< 1 0 # 1 0 > i 

f»>rit»?ln< ''R?0 funding b»<?n sHott<?d t-o pursui? syst^ 

Put t tv' 1 0 , 1 1 # ' < JHRH to •: ont i rue > ' ) ; 

r*.^d< in > ; 
pyit^^ ord 5 
end 

end 

end; 

help 

end; t«:hnn«>i > 



beam 
counter 
hjhare : = I ; 
c 1 Parse reen; 

title ;= 'NEh RxO npofjRTtiwTTIE^^ : 
rdheader< inhere > ; 
r’or 1 I to ni.tmof systems do 
Desin 

if < sysC 1 1 . yrPaOstarts ^'= >-»epr > and '' ”y«C i ] . ctatus = \ ) then 
if sysC i 3. delete = 0 then 
beam 

counter :» counter ^ 1; 

1 1 St 1 V> i* c ot.inter ) 
end 

end; 

Choose I 

end; w*rd> 



PRC'CEDljRE CNRD; 

•.jar 

inhere# i, count. er ; intoa«»p; 

PROCEDURE CH00RE2; 

•Jar 

e : strine; j : inteeer; o r rhar; 

PROCEDURE MriNEV2; 

PROCEDURE H0NEV2P ; 
beam 
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1 +■ C J 1 . R aO = ^3 t 

rirdsp^nt* : = hrd*«*»^»^t, — •■ b-s f 1 1 , t R^Ocost- b? C j ] . pena 1 1.*:* > i 
blulpt't- := bl'jlp+'t *»* •• b^C.j 1 .yf^lRaOro«r. > b<C j ] . p<»naiV:< > 
•=>nd; 

if b^Cjl.'^rofRaO = I thpn 

brdTPpnt. : = bf^d'^p^nt - »• b-s C j ] . •-♦riRaOcost. > o« C j ] • ppna i v=» > ; 
blulpft != blulpft 4- •' b« C i 1 . ^r ’R aOcosr. > C .j ] . p*?na I > 
•=^nd; 

if b-?^ C j ] . '^rnf R;%0 = 2 t.hpn 
bP^in 

Drd5ppnt : = brd^pprt - ( b-^ C j ] , '-‘r^PaOC'Dst. > b< C j ] . ppna 1 t-y :> ; 
blulpft ;= blulpft > <b<CJ},'-^“RaOcost. + b<>Cj 1, p*?r>alt.y ^ 
pnd 

^nd; <’m'^ney2a*J- 



bp-9 in 

1 f opr-^on p p } aypTP Cl] ♦. h<»n 
bp^in 

if rsC .» ] . yrofRaO = 9 thpn 

bp^in 

rnd<ppnt. : = r rd<p»»nt. - ► C . « 1 . yr t RaOc o5t r< C j ] . ppna 1 ty > ; 
npdlpft ;= rpdl<»ft 4* < r^-.C ..i ].*2H^lRa0co«T, r^C .i ]- penalty • 
pnd; 

if r-aCj].yrofRaO = 1 thpn 

0P5»in 

nrd?ppnr := rn^-^p^^nt. - < r-af .» 1 » yn^RaOcost. r-sC J ]. penalty >; 
npd I pf r, : 3 rpd 1 pf t > *' r< C J 1 . yr 2Ra0c o-st. + r« C j ] . ppna I t.y > 
pnd; 

if r-5 C J ] • yrnf RaO = 2 thpn 

bppin 

= md^p^nt. - •' r-^. f j ] , --*r‘^Ra0co5t. C j ] . ppna 1 • ; 
rof^lpft. ;s r**dlpft 4- »■ j 1 . yn'?Ra0co-5t. C ,» ] . PPna 1 ty > 
pnd 

•»nd 
pI fp 

i»>onpy2a 

pnd; ^'ioonp^2> 



bpain 

?ot.oxy< 1 7 j t -3 ) ; 

**«niT..?ln< ''Vnij S'' , 1^=^*'*. , ' m r>-« m thl^ ypan' ' bUd^Pt-'' *# 

Put, it.< 7,21 # 'Ent^pn tbp naiwo nf niho<i» R}*,0 ynij ihi =h to 9hph'p 

»»j 1 1 u 7 ,22 > ' " Tupo ' • qij \f ' ' *.o =>u 1 T ^ ; 

aot oy y»-' Hb 2 1 ) ; r pad I p > ; 

if *■ >> = Quit' ) or '■. p ^ ' "^njit. • ■' r.h«»n «»^iTtrnrd.^ 
p i 

OPPin 

f'"»r ; 1 tO »vjnoof dO 

bp^in 

1 f 9’-‘P C t ] . namp = p t hpn 
bpain 
i'lonpy 2 ; 

?-ys Cl], status : = 3 ; 

1 4" Ri^rp.nn - alavpr-^Cl] ^ rpn := *yp 
p 1 pp b< : = ayp ; 

0 ’ par^crp^n ; 
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=>OT^OXV<‘ 1 0 # I 0 > j 

tnr' 1 1.*? i rK. ' Rx^O funrtin'9 ha^ cun. further Ptirsuit of sv^ste 

ift de<.^e 1 cp^nent . ^ j 

p*.*t.:t< 10. 1 1 ^ ' <Pre <;5 RETIJRN to cor>tinue>' >; 

reacK i« > ; 
exi^< cnro > 
end 

end 

end; 
ne tp 

end; \Choo^ei?> 



depin 

counter r= 0; 

Inhere : - li 
clearscreen; 

title := "CONTINUED =^0 npPTfRTUNITIE?" ? 
roheadeK xihere ) ; 
for : 1 to ntjrrtof^vsten^ do 

be-9in 

if nsy^Cil.yrRaOstarts vear > ^nd < <m<?c 1 3 . status “ 2 > tnen 
if svsC i ] . delet e = 0 then 
be^in 

counter ;» counter 1; 

1 1 St 1 1< 1 » c oun ter > 
end 

end> 

chooser 

end; tcnrd> 



PROCEDURE -SRO; 

’var 

f»»here^ i > counter ; inteeer; f : rhji^r; 



PROCEDURE CH00R£3i 

e : strirvp; i : intpeer; ; char? 

PROCEDURE HONEVoJ 

PROCEDURE H0NEV3O ? 
besin 

if bsC j 3. ‘^rofRaO = 0 rhen 
beam 

rnucn : - c j 3 . ^r i RaOc ost. > ^s C .1 ] . pena 1 1'^ ; 
if tncich > blule^'t then chec<^; 

ordspent := br^spent bsC..» 3 . ’:*riRaOcost ^ bsC j 3 . penal tu 
bluleft := blul<H->. - < b«C..i 1. ^rlRaOcost bsCJ 1 . penalty ;• 
end; 

if DsC J 3. '=»rofRaO = 1 then 
Deem 

-nuch bsC.i 1 . •^♦^SPeOrost ^ b^r j ] . ponaitv; 
if nucn > bluleft then check; 

brdspent := ordseent * t bsC.» 3 .':<r2Ra0cost bsL j 3. penaltv.-*; 
bluleft := bluleft - bsC j 3 . '-»r2Ra0cost bsC J 1 . eenaiv^ 3 
end; 

if osCj 3. srofRaO = 2 then 
oe’?in 

irtuc h : = b«T . j 1 . vrTRaOc o« t b« C J 3 • eena 1 ty ; 
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if touch > b lu I th^n <:h.?c^ j 

brcisp^t. := nt. +• '■ ^ • vr^TR-^Ocost. ^ b'sCj ] . p^3it's» >; 

b 1 u 1 ef t : = b 1 u T pf r. - »• b«. C J 1 . ’iT TRaDc o<t. > cTs C J ] . pena 1 t'r* 

•?nd 

•?nd ; C roon-^MTa > 



bp*9in 

if (^i^r'Ton = p1^v<p»^C 1] f.hpn 
bP3ir> 

if r«[ j ] • 'r*rofftaO = *hpn 
besin 

»mjch := r^C i 3 - v»^lR^Ocosn. j 3 • p«?nai ; 

if much > rpdlpf't thi?n ch»?rt<'; 

rrd^ppnt. ?^h«ppnt ^ ] , MrtPaOco‘?-t +• rsCj 3 . P’^na It-y ># 

rpdlpf"^- 5=® rpdlpft. - K'-s r.i 1 , yr tPaDco^t. r^Cj 3 . Penalty ^ 

prod; 

if r5CJ3,yrofRaO = 1 r-hpro 
bP*?in 

ovjch r^C-j 3 . v'^^ERaOcof’f +* 3 . penalty; 

if touch > rpdlpft. r,hpn chpck; 

rrdpppnt := rr^d^pprot •' r^r j 1 , vr2RaDc-*os^ rpCJ 3 .pproait.y >; 
rpdleft := rpdlpf^ - 1 3 . y»*2Ra0ccr5r. -*■ r«C Jl. Penalty ^ 

prod? 

if rsCJ 3 • yrofRaO = 2 thpro 
bppin 

louc h ! * C • j . yr^R sOc 05 1 . r^-z C .i 3 . pproa 1 r.y ; 

if touch > rpdlpft. thpro chpci^ ; 

r^d^ppHt. ;p rrd«ppnt. > 1 . yr3Ra0co^t- r«Cj 3 . pproal ty >; 

rpdlpft rprn.»ft. -> r^<r.j 3 , y»^3Ra0costi. + raCJ 3 . ppnaity > 
prod 

prod 
p Ipp 
monpyoa 

prod; :*o>or^oM.7> 



PROCEDURE LIST; 

•v»ar 

coufOT. • int.pppr; 

bp^iro 

cipar<chppn; 

p^jMt< 10,1/'RPNPLTV PRirPQ POR PPSIJHINO PR0»IOUSLV SHEU^ED R‘^0 PROJE 

p*j 1 1 25 #3 # ' Syp-t pm< T '-lap ) Rpna i ty ' ) ; 

count := 5; 

for := I to nijmof^yptpmp. do 

1 f < pysCk 3 . status = 3 > ^nd ^ =.y< Ck 3 , dp ). pt p = h j T.rpn 

bppin 

?OT.iO>fw< • C I : iiif^ “» r •>< r.Mc. r U 1 , fi 5V4C C k 1 . 50nt p '>' ) r 

potovyc. 35 P c ount ^ ; >'‘r i f p ^ ' , :u-s.i i- 1 . pi^rta i t .m ;> ; 
count. ;= count ^ 1 
pnd 

pnd; ■t‘ii^.t.> 

opoin 

p*.»t.it.v I5#2l » 'Fnt.ar ur to aduanrc^ p-5pp ro '..»ip*'« ppnai^y pr^icp? ' 

Put. i t< IS* 22 *^ ^ ^t. *s>t' 0 t -I 3 » 1 1 r , > ^ ’) ; 

rpa«d< f > ? 

It’ • f = .» or f = ' ^ r* har -rd**; 

1 ipt; 
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90toxy< 1?. 1'3>; 

iMri t«?lrK " Vw r«friair>Tn-? in ^ni^ bu<5?ev' >; 

putf 7#21 ^ "'Ent.<?r’ t,hp naf»*<? of* =»fV;» cMcti»iYi P’Ji'O vnij nn«.h t,o ri»«u»if»pj 

' fi 

C'UtitC 7>22^' ''Tvp® " ^.nr/ ' r.o =»uat> ' >; 

potoxv< J^8#21 >;rp.^in< >? >; 

if < •? = or <e = then 5rd> 

-?U*? 

DP5»in 

*^or 1 ;= 1 tn riLwof^v?^ oo 
be«iin 

if 'Sy^Cil.namp = p then 
bp^in 
inoney3 ? 

s'sts C i ] • s t-atU5 : = 2 ; 

i f ppr«.on = p 1 ■=t*-*pr<« Cl D thpn » -^vs 

p 1 ^ bs : = » 

r Ipar^rppp * 
potoxsv 4^ 10>; 

i'.»rit>?ln< ^Rf^O f'jrdin^ na? rp<urrpct.p<i for further p^jrsuit o 
f svstem deuelopntert, '‘s 

puti t< 10# 1 1 > ^ /Or'oc.s RETURN to cortirue>^ >; 

re;^d<' "> s 
pvir.^sro^ 
end 

end 

end# 

help 

end i <‘.c hoto« e 3 > 



Deem 

counter ;=» y; 

»»<here : = 1 ; 
cleorecreen; 

title :» SH£U.*En Rx.0 OPPUPTHNITTES' ? 
rdhe 3der< luner e • ; 
for i :=s 1 to numofeve^ene do 
beein 

if ; e'^sC 1 ] . vrRaOetar^-^ <= > ^d ' r*-<«C i ] . «tatue = 3'« then 

if i] . del ete = y rh^n 
Deem 

c ounter ; = c ounter •*- 1 ; 

1 iet:t< 1 # counter ^ 
end 

pndJ 

chooses 

end; < r^rd> 



Deem 

p»jitflae := f^lse; 
repeat 

1 f Person = p 1 avers C 1 1 then 
Deem 

left ;= red left? 
budeet ;= reobudeet; 
geepent := raespent; 

1 spent := ri spent; 
rds-pent ;= r»^spent 
end 
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l»?ft := 

blubud^^t,; 
a^«^p<?nt. :» oa^^ppnt: 
isp<*nt. ;» bi spent; 
rdspent :« brds^^t 
end; 

clearscreen; 

Putit<20,3,"'^'ESEPPCH QNO PE».’ELOPH€HT PPCfjECT 9TPTUS' >; 

Put i t < 22 ^ a ^ ' a . . . HEM OPPORTIJH T T T FS " > ; 

p».»tit< 22, 10, "8. ..continuing OPPORTUNIT’THG' •>; 

PUtitv22,12,''C...SH€LUE0 OPPORTUNITIES' >; 

p*jtiu 22, 14. 'Q... QUIT' >; 

rea»:K d > ; 

case d of 

'P'j'a'' : CRO; 

'9','b' : CNROi 
: SPO; 

: ^itflas ;* tr»je; 
ot-benuise help 
end 

until puitflae 

end ; T rds tatus > 
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THE POLlijWIN*^ SE'-^HEHTEO PPOCEHnocc qoc rnn^TlPn mmo thSF^TED THE Hl^IN 
PROEPfiM PS BPTCH ?B USIHS THE COMPILER "INCLUDE^ OPTION, D»J£ TO FILE 
SIZE CONSTRPINTS.> 



SE6HENT PROCEDURE bETPLL; 

ilnitialxres all paraft^eters if i« a rp^umpticn. > 

PROCEDURE iBETONEi 
var 

teffiPlfil^ ; flip of ^pmp; 

DP*9in 

rp<pu tP(»iP 1 f i 1 e , ' TEHPC» : tetnpo I . rtaf.a ' > ; 

<•11 th t,emf>lfilp^ do 

year; *t.ypar ; rpd 1 pf't : ^ rpd 1 ; D 1 u 1 : =TO I u 1 et* t ; 

ra^-spprrt: =t,r apsppnt, ;tDa^ppnt: ^.bap«ppnt- ; 
r i «pent ; i spent. ; b i spent : b i « pent. ; 

rrdspent ; *trndspent ; brdseent : =t.brdspent ; 
nunof svstens: =tn»jncf systens ; 
roa : =troa ; roo ; *trob ;rda : ^,rda ;r db : =trdb # 
boa:=tboa;bob: =t bobibda: =tbda,-bdb: *tbdbi 
ro: ^.,ro ;rdr =trd;mdo: *trrdo ;rrdd: =trrdd ; 
fro: ^..fm;frd:=tf»^dJfrr^o: =tfrrdo ?f»^ndd: =t.frrdd; 
bo: =tbo ;0d: =tbd;brdo: *tbrdo ;brdd: ^.brdd ; 
tbo: =»tf bo ; t bd: =^.f bd ; fbrdo: ^..f brdo; ^'brdd; =t.fbrdd j 
uiarc ont : =twarc ont # pntr : sr pi^tr ; 
p 1 avers : ^^p 1 a ver^ ; redbudeet : renbudeet i 

b 1 ubudeet : *tb 1 ubudeet 
end; 

close< temelf lie, lock >; 
case prtr of 

' ; ren»rite< r,'.RSZ72' ■'»; 

' 2 ' : reHirite<r,‘',3rL£NTVPE^ ■> 
end 

ehd; ^I?et.onev 

PROCEDURE bETTWO; 

’^ar 

temp?f lie : file of ; 

bee in 

reseu teneSfi le, "TEMPO: temPo2, data" ; 
ns ! » tenp2f i 1 e^ ; 
eet^ tempEf tie): 
bs : = tenpZf i 1 e^ ; 
aet< t.emp2f 1 1 e .) s 
•: lose< tenp2f i le, lock ) 
end; 

Deem 
?etone; 
eettiiio 
end; 



C settl'd > 



\eet.9il> 
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POLI HnwcP/:;H«^WTcp oonrtrpMOCc r,c<r rrt^oi] cn qnh th^^PPTFD IN THE HQIN 

PROGftHH PS 8PTCH IP USING THE i;:0»^ILER ^ INCLUDE^ OPTION, DUE TO FILE 
SIZE CONSTRQINTS- > 



PROCEDURE INUENTORV <a> y : 

< Called bv rouMne-5 and P<^5tatu5, Pno^Mde^ listing of 

par afiieners, > 

be*? in 

y :s y 7 ; 

C-rfjTOX'A >; 

»"rit.eln< sysCa].nafne#^< ' al.sort • ' ' ); 

G0T0XV(2U-^.'i 

wr 1 te< SH^sC a] . i nuentorv ) ; 

G0T0XY< 30,y>; 

M.tr 1 te< 'S' , svsC al . flOcost ) ; 

80T0XV< 38,y>j 

uirit.e< ' S' #svsCal.OPcost.'>; 

60T0XV< 47,'^); 

>«.irite< j .uti l5 ); 

S0T0XVC55,y>; 

uir 1 ^e< sy s C a 3 . un 1 1 buy ) ; 

f50T0XV< b5,y;«; 

writer ' /sy^CaJ.uPco^tlTL); 

SOTOXVC 73,y>; 

'vr 1 1 e< sy 5 C a 3 . u 1 1 1 sTTL ) ; 

end; Cinventorv> 



PROCEDURE UPDPTE <p^r^on : string; amount. : integer); 

<I Performs annual handshake tmth p layers, in turn^ and verifies code«t»ords 
for access.} 
uar 

d ; char;flas : boolean;ii»ord : strine; 

Desin 

cl e arse r een ; mr i te t n ; inr 1 1 . e I n ; 
flas := false; 

'•triteim^ Veu are about, to Deem year '#year#^ of TEH 

PO. >;»ariteln; 
writeln; 

'oritein<^ '.p«»r<on/^ tnomentarily to make his/her annu 

a I ; , 

"jr ite I rK ' buo?«>t3ry decisions . ' )t 

"iri te In ;inriteln; 
repeat 

'.Mrit.e< ENTER C0DEV^0PD< cursor remains fixed): ' >; 

read 1 n< k evDoard # <nor d > ; 

i f < person=» I ayers C 1 3 ' and ^ fr?oro^ 1 ayers C 3 1 > then f 1 ae : = true 
else if < persons® lay ersC2 3 and •' "«orrr=® i ^ye»^s C 4 1 ) then flae := true 
e I se 
Deem 

j»Mr.iuu*P.' COOEHORO HR0Ni3‘ TRV HGmIN 

. '' ; 

put 1 1<^ 0 . 9 # ' 

" ); 

aot oxyv G .3 > 
end; 

until flae; 
for 1 te 1 n ; »itr i te 1 n ; 

"•riteim ^ The bude®t /or this year is S'’ ^amount >; 
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luri ^ 



/'This o^nf. ro*1.?rt, 1 0P*?r3tin'9 cos 



ii»ri^ elrK ^ 



for the current, ye^r 



:,»(» the ham Menu for r«ore mfor 



ma^ion 



write 1 n ; wr 1 te 1 r SMr i 
wri teln< ^ 
re ac< d ) 



telr;writ elr 5 



Press RETURN to obtain the Nam Nenu.' 



end; 



.'edat.e> 



PROCEDURE MHOPLPVS; 

{Obtains el aver mfomation a dataf i le created bv earent chained 

eroer aiw, > 

^ar 1 ; i nteeer ? 

datat'ile : file of atrine; 

Deem 

resetc dataf i le^ '"TURNKEVl .mane.dasa' ) : 
for i 1 to do- 
Deem 

e 1 avers C i ] : = dataf 1 1 e^ ; 
aet( dataf lie >; 

{ inr 1 te 1 n< e 1 avers C i ] > > 
end; 

close< dataf 1 le ) 

end; <whoplavs> 

PROCEDURE person : string; li^t : char); 

{Called bv Oestatus and >5ostatJJs routiners. Pro'.ndes for the 
BP^roeriate eaw headers. > 
oar 

Choice : char; left : intes^r; 

D^m 

if person = PlaversCl] then 
left :» red left 
else 

left ;= Dluleft; 
soto?iV< 15. 15 j; 

writelrK 'Vou c^»'^rentlv haue 5 '.!•»+>..' tn rpond for the fiscal vear' >; 
if list^^a'' then 

puti tc 13^ lE. ' < P^'^ess P ^o p’fochase^ E to rC^ap v»mts •^r RETURN to exit> 
else 

»ijtit.c 20, 18,^<press P ^o PMrch=>s*» nr ‘UPTURN to '»yit>^ ); 
neadc choice ); 
case choice of 

' P ^ p" ; buv< Person * 1 1 st. ) 

: Dpsin 



i ist;p' c' ; 

person .1 1 c tw’ 

end ; 

: case list nf 

a ' . c ' : ex 1 tf opst at us ) ; 
b'' r exitc. a^’stat.us ^ 



end 

otherwise 

beam 

neip; 

case list of 

' a' . ^ c : e'^T t.c opst.a^ f»s ; 



'’b' : e V I tA austatus ) 
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•?nd 

»?nd 



PROCEDUPE PR<?E2< ppr-son ; st.r:np; : ch^r *: 

■ilSee routine P3<?el,> 

choice : cher;let’t. • integer; 



PROCEDURE wOUPNCE; 

Deem 

c lear<creen; 
case list of 

"3' r p»jtit( 23 .t2j. 'FORCES CUPRENTLV 
'b' : p«jtit< 28.2. "FORCES auPILPBLE 
end; 

POtlU3.4,' Cjp 

OTPL ' 

^ur.iTA 2.5. "RVSTEH< TVPE ' INtiEHTORV 
QPCOST utils "j; 

'.Mhi teln 



IN IN^ENTORV" >; 

SUT NiDT IN INUENTORV- > 

<'P PURCH 

COST COST UTIl.S 



end; 



'’I ^»Tn^ 3hc e ’> 



! 

LIMIT 



Deem 

if person - pl 3v*ersCl] then 
left != red I eft 
else 

left ;= Dluieft; 
sotov^< 15.15>; 

iMritein< "Vou cuf^entW ha^^e S', left.' =^end for the fisc si vesr' ); 
if list-' 3" then 

Put it< 7. 16. ' ^ress R ’‘n c^ijr^hssp. to scrsp unit^ or p^^ess t or nex 

t P3PP >" ■* 

else 

put.it06. 16 • " " Pre<s P onrm^sp or p»^eps Q *'or next peee >» 
putit<‘27.l3."*^ i^OOITIOHOL PCtRFS FnlOW ; 

readc choice ); 
case choice of 

; oMM< PPT< on. ) 1 St. ■<; 

'S' . 's" : besun 

list;='c" ; 
buv< person .list > 
end; 

.'a' ; aduancp 

otheruti<p 

be-ein 

help; 

c asp list ?f 

3' ; exit/ ops'^ atu« 

b' ; exit< austatus > 

end 

end 

end 

end; r p^pp2} 

PROCEDURE 0PSThTU6; 

•ihccessed fro)i> ;nain ioer»j. i^^rinp o+ ■-’estaf»>s ':’jr*^pntiv m 

inupntoru. Provides for svstem purcnsse*^ -ro crv^-^poio-^ throush C3ils 
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to the Buy 5»joro»jtine "la Paeel or P^ee2.> 
oar 

djlist : char; 1 ,k ^counter : irt.eeer; 
be^m 

liet := '3'i 
>'or k :* I to 1000 do 
be-9in 

counter 0; 





putit< 23/2/ 'FORCES CURRENTLy IN 


tNUENTORV^ •>; 








putitv 3/-^/ ' 


00 


OP 




PIJRCH 


TOTiiL 


' >; 












2-i3, 'SVSTEhK TVPe » IN'.€NTCiRV 


COST 


COST 


UTILS LIMIT 


OPCOST 


UTILS ">/ 
mritein; 

for i 1 to numcfsystems 'OO 












besin 











if *' syeCiJ.’-frauail <= and ( 1 3, inventors /d > then 

if ye C 1 3, delete = d th«»n 
beam 

counter := counter +1; 
if count en > 4 tr^n 

bee in 

•‘Ounter != 0; 
eaee2< pereon # 1 1 s t ) 

•»ndi 

inuentory< i /Counter > 
end; 

end; 

paeeK eereon/ 1 let > 
end 

-^-nd; <*op«r.3tu^> 

PROCEDURE MUSTCiTiJ?. ; 

twc cessed from main menu. listir*® of all systems available out 

not yet in im^entory. Provide^ for 5 u«to(n oijrchases and scrap^ins throusn 
calls to the buy subroutine ’‘ia Pasel or °a«eP,> 
uar 

d/list : char ;i /k /Counter ; inte«»er? 
besin 

• list ;= 'b' ; 

for k := I to 1000 do 
oesin 

counter := 0; 

■: learscneen; 

putitC 23/2/ 'FORCES QUQILPRLF PUT NOT IN INUHNTORV' 

Put 1 1< R /-i . ■■ mH op porch 

I U T WU ,• ; 

»utit/2/0/'SVSTEH<TvPE:'» TN*€NTriRV COST COST UTILS LIMIT 
0PC03T i jTILS ' 
i»«ri tein; 

for : 1 to nM(«ofsyst*^« do 

besin 

if sysC 1 ] • yr aval ) ^ = year ) and sysC i ] . i nventory = 0 > then 
if s’-»sC 1 ] . deleti^ = 0 then 
besin 

counter :* counter 1; 
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if 'rount*?r th^r> 

c ount.^r : - 0 * 
paw2< p<?r<cn •list ) 
snd; 

inMentor^’ i >co»jnt.»r ') 
•?n<3; 

•?ndi 

pa'=H»U Person ^ 1 ist > 



end 

endj 



'laustatu5> 



PROCEDURE CURREHTSTftTUS< person : strine,-; 

{Supplies current, p I aver d»jdepT status. > 
uar 

> 1 > j ^ 1 ef t. ^apseent. , i spent #rd5P-»nt. : i nt-pser ; svsbudset : arrav C 1 . . 20 1 of i 

nteser i 

d : char; 

PROCEDURE COSTS; 
oesin 
j := 19; 

for i 1 to mjmof systems do 
Deem 

if < svsCi ].OProstttl > 0^ and svsf i ] . vra^^ai 1 <= vear) then 
if svsCi 3. delete = 9 then 
Deem 

- j > I ; 

sotovxc 1 ! .j );uiri te< i T • na^e^ ^ >svsC 1 3 . <ort> ^ >; 

sotoxv< 30 # J ) ; ‘“r 1 1 e< s v< C i 1 . i n« .•»ntcr':i > : 

POtOvy< 49>..| :hirit ' S' j'SysC 1 1 , oecostttl > 
end 

end 

end; Cco«ts> 

Depin 

if per^«m = plaversCJl then 
Deem 

fvsDudset := redOudset;left 

apseent ;= raespent;ispent := rispent ;rdspent := rrdsppnt 
end 
else 
Deem 

i^vsDudset D I uDudset ; 1 pf t j “ D 1 • 1 e^*‘t ; 

amspent := Dasspent ; i seent ?= bisppnr.;rdsppnt := brdseent 
end; 

•: I ear screen; 

5='Utit<s 30> 1 > 'BUD0ET INPORHQTTOH' ■»:>'»rT teln;eotovv< 17>3>; 

'Hr ite*. ' Vear: ' >vear );eotoxv< 32^3 > s 

'Hr 1 te< ' T Ota 1 Pnnua 1 1 1 o»*«anc e : s', svsDudset C ve ar 3 > ; 



eotoxyc* 5 ^5 ) i 

'»<riteln< 'Amount spent m sc^»isitions. . 5' •aespent 

?otoxv*t 5»R 

'»»r itein< ' 'Amount spent on intel 1 i-^erre. S' > i spent )* 

?otox vv 5 # 7 ; 

'HriT..»ln'; ' Mnounr. spent on R 3rd D..,,.. ,s' ,rdspent 



aotoxyC 5>.S);niriteln< 'hpai-Btme costs Dv system (those in inuentory j: 
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Tot-ai UPerBtirr? Cost-s 



'MritPln; 

CO-SX-s; 

ro !- ’r*par 1 ; 
aotoxM< 10,20); 

"»r 1 te 1 n< ' Exp^c t acj d*?f i?ud"?pr f *o*^ 'z^ar: S' , n?dbud?et C m 3 > ; 

?otoxy< 24,21 >; 

writalrK 'Total Rpmamirr? t 

p»jtit< 21 #22# ' <'P’^p‘5‘S PETURN to return to main rrt*?nu>‘' ); 

?otovvv 1 #22 d > 

•?nd ; < corrpntatatua > 
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